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

uses crt;
type anketa=record
   familiya: string[45];
   imya: string;
   otchestvo: string[20];
   data: string[10];
   pol:string[3];
   buf:string;
end;
var z: array [1..100] of anketa;
rr:anketa;
i,j,n: integer;
fp:text;
s,name:string;
begin
assign(fp, 'C:/Temp/filer.txt');
append(fp);
writeln('Введите число студентов');
    readln(n);
        for i:=1 to n do
              begin
              writeln('Введите фамилию');
              readln(z[i].familiya);        //Нужно записать, только мужчин
              writeln('Введите имя');
              readln(z[i].imya);
              writeln('Введите отчество');  //не записываем, пока не убедимся, что это мужик
              readln(z[i].otchestvo);
              writeln('Введите дату');
              readln(z[i].data);
              writeln('Введите пол(муж,жен)');
              readln(z[i].pol);
              end;
 
              for i:=1 to n-1 do  //Сортировка
                 for j:=i+1 to n do
                 if z[i].imya[1]>z[j].imya[1] then
                 begin
                 rr.buf:=z[i].imya;
                 z[i].imya:=z[j].imya;
                 z[j].imya:=rr.buf;
                 end;
                 
                 
                 for i:=1 to n do     //Записываем в файл если это действительно мужик
                 begin
                      if z[i].pol='муж' then
                      begin
                      s:=z[i].familiya;
                      writeln(fp,s);
                      s:=z[i].imya;
                      writeln(fp,s);
                      s:=z[i].otchestvo;
                      writeln(fp,s);
                      s:=z[i].data;
                      writeln(fp,s);
                      s:=z[i].pol;
                      writeln(fp,s);
                      end;
 
             end;
              close(fp);
end.

  for i := 1 to n - 1 do  //Сортировка
    for j := i + 1 to n do
      if z[j - 1].imya[1] > z[j].imya[1] then
      begin
        rr := z[j - 1]; z[j - 1] := z[j]; z[j] := rr;
      end;