Сортировка двумерного символьного массива по алфавиту

program prprpr;
  
 
   var
    a:array[1..10,1..24] of char;
      
      x,i,j,l:integer;
      n:char;
 begin
      assign (input, 'ds.txt');
      reset(input);
 
      
 
      for i:=1 to 10 do
          begin
               for j:=1 to 24 do
                   begin
                        read(a[i,j]);
                        write(a[i,j]);
                   end;
          end;
          
     writeln;
     
     for i:=1 to 9 do begin 
        for j:=1 to 10-i do begin
          if a[j,1]>a[j+1,1] then begin
            for l:=1 to 24 do 
              begin
                n:=a[j,l];
                a[j,l]:=a[j+1,l];
                a[j+1,l]:=n;
                end;
             end;
           end;
        end;
 
 for i:=1 to 10 do
   for j:=1 to 24  do
     begin
       write(a[i,j]);
     end;
end.

  for i:=1 to 10 do begin
    for j:=1 to 24 do begin
      Read(a[i,j]); Write(a[i,j]);
    end; ReadLn; WriteLn;
  end;

  for i:=1 to 10 do begin
    for j:=1 to 24 do Write(a[i,j]); WriteLn;
  end;

const maxn=10;
var
  a: array [0..maxn,0..24] of Char;
  i, j, n: Integer;
begin
  Assign(input,'ds.txt');
  Reset(input);
  n:=0;
  while (i<maxn) and not EoF do begin
    ReadLn(a[n]); WriteLn(a[n]);
    Inc(n);
  end;
  for i:=0 to n-2 do for j:=i downto 0 do
    if a[j+1,0]<a[j,0] then begin
      a[maxn]:=a[j+1]; a[j+1]:=a[j]; a[j]:=a[maxn];
    end;
  for i:=0 to n-1 do WriteLn(a[i]);
end.