一个Delphi数字游戏代码

求助一个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;