Двумерный буквенный массив
var
a:array[1..10,1..10]of string;
i,n,m,j,d:integer;
begin
randomize;
read(n,m);
For i:=1 to n do
for j:=1 to m do
begin
d:=random(90-65+1)+65;
a[i,j]:=chr(d);
end;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j],' ');
writeln
end;
readln;
readln;
end.