Двумерный массив записать случайным образом латинскими буквами. Упорядочить каждую строчку по алфавиту методом пузырька — Pascal(Паскаль)

uses crt;
const n=8; m=9;
var A:array[1..n,1..m] of char;
    i,j:integer;
    c:char;
    f:boolean;
begin
 randomize;
 writeln(':');
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     A[i,j]:=chr(random(26)+65);
     write(A[i,j]:2);
    end;  writeln;
  end;
 writeln;
 writeln(':');
  for i:=1 to n do
   
   repeat
    f:=true;
    
     for j:=1 to m-1 do
      if A[i,j]>A[i,j+1] then
       begin
        c:=A[i,j];
        A[i,j]:=A[i,j+1];
        A[i,j+1]:=c;
        f:=false;
       end;
       
   until f;

 for i:=1 to n do
  begin
   for j:=1 to m do
    write(A[i,j]:2); writeln;
  end;
end.