试编写代码如下：

program conExe;

{$APPTYPE CONSOLE}

uses

SysUtils;

function dupchar(c: Char; iRepeat: Integer):string;

var i: Integer;

begin

Result := '';

for i := 0 to iRepeat - 1 do

Result := Result + c;

end;

var

n,j:integer;

ss: string;

begin

n := 4; //定义边长为n的菱形，也可以使用 readln 来动态获取；

for j:=0 to n do

begin

ss := dupchar(' ',n-j)+dupchar('#',j*2+1)+dupchar(' ',n-j)+#13#10;

write(ss);

end;

for j:=n-1 downto 0 do

begin

ss := dupchar(' ',n-j)+dupchar('#',j*2+1)+dupchar(' ',n-j)+#13#10;

write(ss);

end;

end.