Найти строку с первой по алфавиту фамилией и с наименьшим номером телефона

program ex11n15;
var
 a, a1: text;
 i,j: integer;
 f: array [1..10,1..25] of char;
 min, min2: integer;
begin
 begin
   assign (a, 'b.txt');
   reset (a);
   assign (a1, 'b1.txt');
   rewrite (a1);
   for i:=1 to 10 do
    begin
        for j:=1 to 24 do
            read (a, f [i,j]);
        readln (a);
    end;
    min:=1;
    for i:=2 to 10 do
     begin
         j:=1;
         while (F[min,j]=F[i,j]) and (j<=15) do j:=j+1;
         if j<=15 then
            if (F[min,j]>F[i,j]) then min:=i;
     end;
 end;
 begin
   assign (a, 'b.txt');
   reset (a);
   assign (a1, 'b1.txt');
   rewrite (a1);
   for i:=1 to 10 do
    begin
        for j:=1 to 24 do
            read (a, f [i,j]);
        readln (a);
    end;
    min2:=1;
    for i:=2 to 10 do
     begin
         j:=16;
         while (F[min2,j]=F[i,j]) and (j<=24) do j:=j+1;
         if j<=24 then
            if (F[min2,j]>F[i,j]) then min2:=i;
     end;
    for j:=1 to 24 do
        writeln (a1,F[min,j]);
    for j:=1 to 24 do
        write (a1,F[min2,j]);
    writeln(a1);
    close(a);
    close(a1);
 end;
end.

type
 f: array [1..10] of sring [24];
var
 a, a1: text;
 i,j: integer;
 f: sring [24];
 min, min2: integer;

type
 f: array [1..10] of sring [15];
 t: array [1..10] of sring [9];
var
 a, a1: text;
 i,j: integer;
 f: sring [15];
 t: sring [9]
 min, min2: integer;