Сортировка записей в файле

program sort_zap;
type
    rec = record;
            surname:string[20];
            name:string[20];
            father:string[20];
            city:string[20];
            street:string[20];
            home:string[5];
            phone:string[11];
end;
var
   i,n:integer;
   s:string;
   f1: file of rec;
   bufer:rec;
Begin
Write('введите название для нового файла который будет содержать данные о сотрудниках: '); readln (s);
Assign(f1,s);
//запись в файл
rewrite(f1);
Write('введите кол-во вводимых сотрудников: '); readln (n);
for i:=1 to n do
  begin
  Write('введите фамилию абонента : '); readln(bufer.surname);
  Write('введите имя абонента: '); readln(bufer.name);
  Write('введите отчество абонента: '); readln(bufer.father);
  Write('введите город абонента: '); readln(bufer.city);
  Write('введите улицу абонента: '); readln(bufer.street);
  Write('введите номер дома абонента: '); readln(bufer.home);
  Write('введите телефонный номер абонента: '); readln(bufer.phone);
 
  write(f1, bufer);
  end;
// считываем из файла
reset (f1);
writeln('_____________________________');
writeln('Абоненты: ');
While not EOF (f1) do begin
read (f1,bufer);
writeln(bufer.surname,' ',bufer.name,' ',bufer.father,' ',bufer.city,' ',bufer.home,' ', bufer.phone);
end;
 
While not EOF (f1) do begin
read (f1,bufer);
writeln(bufer.surname,' ',bufer.name,' ',bufer.father,' ',bufer.city,' ',bufer.home,' ', bufer.phone);
end;
//
close (f1);
end.

жду((:(