Напишите программу, которая последовательности символов выводила в виде пирамиды: — Pascal(Паскаль)

                          A
                         ABC
                        ABCDE
                       ABCDEFG
                      ABCDEFGHI
                     ABCDEFGHIJK
                    ABCDEFGHIJKLM
                   ABCDEFGHIJKLMNO
                  ABCDEFGHIJKLMNOPQ
                 ABCDEFGHIJKLMNOPQRS
                ABCDEFGHIJKLMNOPQRSTU
               ABCDEFGHIJKLMNOPQRSTUVW
              ABCDEFGHIJKLMNOPQRSTUVWXY

uses crt;
var x,y,i,j:byte;
begin
clrscr;
x:=39;
y:=7;
for i:=1 to 13 do
 begin
  gotoXY(x-i+1,y+i);
  for j:=1 to 2*i-1 do
  write(chr(j+64));
 end;
readln
end.

var
 i,j: integer;
begin
 For i:=1 to 26 do
  if odd(i) then
   begin
    For j:=1 to 26-(i div 2) do
     write(' ');
    For j:=1 to i do
     write(chr(j+64));
    writeln;
   end;
end.