Отсортировать массив записей

program LAB8;
uses crt;
type anketa=record             
     surn:string;              
     phone:string;
     end;
var
  mas:array [1..10] of anketa; 
  i,j,k:integer;               
  s:char;                      
  rec:anketa;                  
 
procedure Init;                
 begin
   i:=0;                       
   repeat                      
     i:=i+1;
     with mas[i] do
      begin
       write('Surname:  ');readln(surn);
       write('Phone number:  ');readln(phone);
      end;
     writeln('continue? y/n');
     s:=readkey;
   until s='n';        
 end;
 
procedure Output;               
 begin
   writeln('-||-Surname------||------phone number----');
   for j:=1 to i do                 
     begin
       with mas[j] do             
        begin
         write(' || ',surn);
         write('              ',phone);
        end;
       writeln;
      end;
  end;
 
procedure sort;                   
 var tmp:anketa;                
 begin
   for j:=1 to i-1 do              
   for k:=j+1 to i do          
    begin
     if mas[j].surn>mas[k].surn  then  
     begin
      tmp:=mas[j];                 
      mas[j]:=mas[k];
      mas[k]:=tmp;
     end;
    end;
 end;
 
(*procedure search;                 
 var flag:boolean;                  
  begin
    writeln('input record for search:surname,phone number');
    readln(rec.surn);
    readln(rec.phone);
    for j:=1 to i do                         
    with mas[j] do       begin
     if (surn=rec.surn)and(phone=rec.phone) 
    then
     begin
      writeln('record found:,rec.surn,rec.phone');
      break;                                   
     end
     else writeln('record not found')      
  end;
  end;*)
 
procedure ADDiction;
begin
 with  mas[j] do
  begin
   writeln('Surname'); readln(surn);
   writeln('Phone number'); readln(phone);
  end;
end;
 
begin                                  
  clrscr;
  writeln('Lab.work #8');
  writeln('It was made by Sventitsky O.V. ');
  writeln('<===================================>');
  writeln('This program will sort the array of');
  writeln('addresses and surnames by alphbetic');
  writeln('order of surnames');
  Init;                                                  
  clrscr;
  writeln('array of inputed records');
  Output;                                                
  sort;                                                  
  writeln('array of records after sorting');
  Output;                                                
  writeln('Now you can input 1 new ''''array pair'''': surname and phone number');
  ADDiction;
  sort;
  output;
  {search;}                                                
end.

procedure sort(var mas:m; n:integer);
 var tmp:anketa;
     i,imin,j:integer;
 begin
 for i:=1 to n-1 do
 begin
  imin:=i;
  for j:=i+1 to n do
   if mas[j].surn<mas[imin].surn then
    imin:=j;
   if imin<>i then
    begin
     tmp:=mas[i];
     mas[i]:=mas[imin];
     mas[imin]:=tmp;
    end;
   end;
  end;

type anketa=record             
     surn:string;              
     phone:string;
     end;
  m=array [1..10] of anketa;
var
  i,j,k,n:integer;
  s:char;
  mas:m;