Заполнить двумерный массив случайными строчными и заглавными буквами латинского алфавита - Turbo Pascal

const n=8;
var a:array[1..n,1..n] of char;
    i,j,k:byte;
begin
randomize;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    repeat
    k:=65+random(58);
    until k in [65..90,97..122];
    a[i,j]:=chr(k);
    write(a[i,j]:2);
   end;
  writeln;
 end;
end.