求助一个Delphi数字游戏代码
请大家帮忙 谢谢了 用Delphi编写一个平行四边形
1
111
11111
111
1
就是这个样子的 在这里谢谢了

[解决办法]
不要意思上面有点小错误

Delphi(Pascal) code

function HuaLingXing(const MaxA:integer):string;var  i:integer;  function LXLine(const ALine:integer):string;  var    j:integer  begin    for j:=1 to ALine do       result:= result + '1';  end;begin  i:=1;  while i<=MaxA do  begin    result:=result+'#13#10' + LXLine(i);    i:=i+2;  end;end;