Сортировка не работает, найти ошибку. Описать запись с именем Zodiac

const
  razm = 100;n = 3;{n-это количество записей, тоесть людей. вообще должно быть написано n=8, просто пока проверяешь прогу 8 записей надоест вводить}
 
type
  zod = record{это запись состоящая из фамилии имени ДР и тд}
    fio: string;
    name: string;
    birthday : array [1..3] of integer;{ДР- это массив из трех чисел- число месяц и год}
    znak: string;
  end;
 
type
  mas = array[1..razm] of zod;
 
var
  f: text; q:text;
  
  
  procedure vvodmas(var baza: mas);{процедура ввода массива, ты с клавы вводишь фамилию имя и тд, и эта информация записывается в массив baza типа mas. думаю тут поймешь}
begin
for var i:= 1 to n do
 begin
  writeln('Введите фамилию: ');
  readln(baza[i].fio);
  writeln('Введите имя: ');
  readln(baza[i].name); 
  writeln('Введите число рождения:');
  readln(baza[i].birthday[1]);
  writeln('Введите месяц рождения:');
  readln(baza[i].birthday[2]);
  writeln('Введите год рождения:');
  readln(baza[i].birthday[3]);
  writeln('Введите знак зодиака: ');
  readln(baza[i].znak);
 end; 
end;
 
  
  procedure zapolfaila(baza: mas; var f: text);{это процедура заполнения файла этим массивом после сортировки}
var
  i, k, m: integer;
  s, s1, s2, s3,q : string;
 begin
  write('Сохранить как: ');
readln(q);{вводишь под каким именем хочешь сохранить файл}
 q := q + '.txt';{создался получается файл(блокнот)}
 Assign(f, q);{связываешь переменную f с реальным файлом q}
 rewrite(f);{и открываешь файл для записи, либо для перезаписи}
  for i:= 1 to n do{дальше идешь по массиву}
  begin
    str(i, s); {str переводит из целочисленного типа в строковый, тебе это нужно потому что i-это число integer, а тебе нужно это число записать в переменную s типа строки, поэтому переводишь в строковый тип и записываешь в строку s}
    str(baza[i].birthday[1], s1);{то же самое с датой рождения, и записываешь их в переменные типа строки s1,s2...}
    str(baza[i].birthday[2], s2);
    str(baza[i].birthday[3], s3);
    s += '. ' + baza[i].fio + ' ' + baza[i].name + ' ' + s1 + '.' + s2 + '.' + s3 + ' ' + baza[i].znak;{и теперь формируешь строку s: в строке s уже записано число i(выше записали)
    просто для того чтоб перед каждой фамилией и тд был порядковый номер типа 1.Мовсесян Карен и тд. Дальше плюсуешь фамилию,имя, строку s1(число рождения) и тд.}
    writeln(f, s);{и записываешь каждую строчку s в файл поочередно}
  end; close(f);{закрыл файл}
end;
 
procedure sortirovka(var baza: mas; var f: text);{пока не работает}
 var
 n, k, i, j: integer;
  s: string;
begin
    for i := 1 to n - 1 do
      for j := i+1 to n  do
        if baza[j].znak > baza[i].znak then 
        begin
          k := baza[j].birthday[1];
          baza[j].birthday[1] := baza[i].birthday[1];
          baza[i].birthday[1] := k;
          k := baza[j].birthday[2];
          baza[j].birthday[2] := baza[i].birthday[2];
          baza[i].birthday[2] := k;
          k := baza[j].birthday[3];
          baza[j].birthday[3] := baza[i].birthday[3];
          baza[i].birthday[3] := k;
          s := baza[j].znak;
          baza[j].znak := baza[i].znak;
          baza[i].znak := s;
          s := baza[j].fio;
          baza[j].fio := baza[i].fio;
          baza[i].fio := s;
          s := baza[j].name;
          baza[j].name := baza[i].name;
          baza[i].name := s;
        end;
     zapolfaila(baza, f);    
end;
 
procedure vvodinf(baza: mas);{это процедура вывода на экран информации о человеке}
var
  s, s1,s2,s3,s4: string;
begin
  writeln('Введите фамилию человека, данные о котором хотите получить');
  readln(s);
  for var i:=1 to n do
   if baza[i].fio = s then{если такая фамилия в массиве нашлась то..}
   begin
   str(baza[i].birthday[1], s1);{опять же переводим в строковый тип даты рождения чтобы сформировать строку с информацией и записываем в строку s1}
    str(baza[i].birthday[2], s2);
    str(baza[i].birthday[3], s3);
    s4:= baza[i].fio + ' ' + baza[i].name + ' ' + s1 + '.' + s2 + '.' + s3 + ' ' + baza[i].znak;{и формируем конечную строку которая будет на экране: фамилия + имя + эти даты рождения + знак зодиака}
   writeln(s4);{выводим на экран эту строку}
    break;
   end
   else
   writeln('Фамилия не найдена');
end;
  
procedure menu(f: text);{это процедура меню для того черного экрана}
var
  s,q: string;
  vihod: boolean;
  n: integer;
  baza: mas;
begin
  writeln('введите название файла ');{вводишь название файла, оно должно быть такое же как и ты вводишь в процедуре заполнения файла}
  readln(q);
  q:=q + '.txt';
  Assign(f, q);{связываешь переменную f с самим файлом}
  vihod := false;{выход пока что фолс, пока не сделаешь сколько хочешь операций}
  writeln('-------------------------------');
  writeln('|      добавить               |');
  writeln('|      сортировка             |');
  writeln('|      вывод на экран         |');
  writeln('|      выход                  |');
  writeln('-------------------------------');
  while vihod = false do 
  begin
    writeln('введите операцию');
    readln(s);
    if s = 'добавить' then
      vvodmas(baza) else
    if s = 'сортировка' then
      sortirovka(baza,f) else
    if s = 'вывод на экран' then
      vvodinf(baza) else
    if s = 'выход' then 
        vihod := true
  end;
end;
begin{вот основная программа началась}
  menu(f);
end.

Procedure sortirovka(var baza: mas; var f: text);
var
  i, j: integer;
  temp : zod;
begin
    for i := 1 to n - 1 do
      for j := i+1 to n  do
        if baza[j].znak > baza[i].znak then 
        begin
          temp :=  baza[j];
          baza[j] := baza[i];
          baza[i] := temp;
        end;
 
   {а зачем в сортировке запись файла?!! Так надо или это просто для отладки?!!!}
   zapolfaila(baza, f);    
end;