free pascal求图形问题

program wood;
var i,j,n:integer;
a:array[1..26] of char;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to 2*i-1 do
write(chr(64+j));
writeln;
end;
end.

program txwt;
var j,m,k:char;
i,n:integer;
begin
readln(n);
for i:=1 to n do
begin
for j:='A' to chr(2*i-1+64) do
write(j);
writeln;
end;
end.

program xu_1;
var j,m,k:char;
i,n:integer;
a:array[1..26] of char;
begin
readln(n);
for i:=1 to n do
begin
for j:='A' to chr(2*i-1+64) do
write(j);
writeln;
end;
end.