Выбор правильного алгоритма

program pp1;
type
t=array[1..47]of char;
tt=array[1..10] of t;
var
A:tt; i,j,k,c,z:byte;
x:char ;
n:integer;
 
begin
assign(input, 'MOY.txt');
reset(input);
assign(output,'MOYres1.txt');
rewrite(output);
for i:=1 to 10 do
begin
for j:=1 to 47 do
begin
   read(A[i,j]);
   write(A[i,j]);
end;
   readln;
   writeln;
end;
 {sortirovka po imenam}
 for i:=1 to 10 do
   for k:=1 to 10 do
     begin
       j:=21;
       while ((A[i,j]=A[k,j]) and (j=30)) do
       j:=j+1;
       if (A[i,j] > A[k,j]) then 
         begin
           for c:=21 to 29 do
             begin
               x:= A [k,c]; 
      A[k,c]:= A[i,c];
               A[i,c]:=x;
             end;
          end;
       end;
 
  writeln;
{vivod imen}
 for i:=1 to 10 do
    begin
      k:=i+1;
       if k < 11 then
         begin  
           j:=21;
           while ((A[i,j]=A[k,j]) and (j=30)) do
             j:=j+1;
             if A[i,j] = A[k,j] then
             k:= k + 1; 
             c:= k - i; 
             for z:=21 to 29 do
                 Write(A[i,z]);   {imy}
                 Write;        {kol}
writeln; 
           i := k-1;
         
           end;
           
      end; 
  
close(input);
close(output);
end.

var
  a: array [0..255] of Char;
...
  ReadLn(f,a);
  WriteLn(a);

const ns=20; ne=29; n=10;
var
  a: array [0..n,0..48] of Char;
  i, j, k: Integer;
begin
  { чтение }
  Assign(input,'moy.txt'); Reset(input);
  Assign(output,'moyres1.txt'); Rewrite(output);
  for i:=1 to n do ReadLn(a[i]);
  for i:=1 to n do WriteLn(a[i]); WriteLn;
  { сортировка }
  for k:=n downto 2 do for i:=2 to k do begin
    j:=ns; while (j<=ne) and (a[i-1,j]=a[i,j]) do Inc(j);
    if (j<=ne) and (a[i-1,j]>a[i,j]) then begin
      a[0]:=a[i-1]; a[i-1]:=a[i]; a[i]:=a[0];
    end;
  end;
  { подсчет и вывод }
  k:=0;
  for i:=1 to n-1 do begin
    j:=ns; while (j<=ne) and (a[i,j]=a[i+1,j]) do Inc(j);
    if j>ne then Inc(k) else begin
      for j:=ns to ne do Write(a[i,j]); WriteLn(' - ',k+1); k:=0;
    end;
  end;
  for j:=ns to ne do Write(a[n,j]); WriteLn(' - ',k+1);
end.