Задан массив записей

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;
 
begin                                  
  clrscr;
  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');
  {}                                           
end.