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

[rubyxanax]

Здравствуйте, надо отсортировать список людей по первой букве в алфавитном порядке. Не могу найти у себя ошибку, помогите пожалуйста. исходный текстовый файл прикрепил. Заранее спасибо!!!

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.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

какой у Вас Паскаль (IDE)?
Почему не используете тип String ?

И почему такое странное чтение из файла?!
я не проверял, но так не должно работать! Ведь в текстовом файле есть переводы строки (символы $#0D $#0A) - а Вы их чтение игнорируете. Так нельзя!!

Так и есть.
Вот, попробуйте, в качестве изучения материала, погонять такой код:

program prprpr;


   var
    a:array[1..10,1..24] of char;

      x,i,j,k:integer;
      n:char;
 begin
      assign (input, 'ds.txt');
      reset(input);

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

     writeLn('Source:');
      for i:=1 to 10 do begin
           for j:=1 to 24 do
                   write(a[i,j]);
           WriteLn;
      end;
     writeLn('-------');

     for i:=1 to 9 do begin
        for j:=i+1 to 10 do begin
          if a[i,1]>a[j,1] then begin
            for k:=1 to 24 do
              begin
                n:=a[j,k];
                a[j,k]:=a[i,k];
                a[i,k]:=n;
                end;
             end;
           end;
        end;

      WriteLn('Result:');
      for i:=1 to 10 do begin
           for j:=1 to 24 do
                   write(a[i,j]);
           WriteLn;
      end;
     writeLn('------- END');
end.