我写了这么个程序：
program cxxx401;
  var a,i,j,l:integer;
      c:char;
begin
  read(c);
  a:=ord(c)-64;
  for i:=1 to a do
   begin
     for l:=1 to (a-i)*2 do write(' ');
     for j:=1 to i*2-1 do
        write(chr(i+64),' ');
    writeln;
   end;
   for i:=a-1 downto 1 do
   begin
     for l:=1 to (a-i)*2 do write(' ');
     for j:=1 to i*2-1 do
        write(chr(i+64),' ');
    writeln;
   end;
end.

有更简单的实现
for i:=1 to 2*a-1 do
  begin
    for s:=1 to abs(a-i)*2 do write(' ');
    for j:=1 to abs(a-i)*2-1 do
        write(chr(abs(a-i)+64),' ');
    writeln;
  end;