Массивы. Составить список, содержащий следующую информацию: фамилия, год рождения, профессия, пол

uses crt;
 
const
  n_max = 20;
 
type
  zapis = record
    fam: string[128];
    god: 1900..2021;
    prof: string[128];
    pol: 0..1;
  end;
  arrzap = array[1..n_max] of zapis;
 
var
  j, n, i: integer;
  a: arrzap;
  q: zapis;
 
procedure vvod(var z: arrzap; var k: integer);
var
  i, n: integer;
begin
  Write('Сколько человек в коллективе: ');
  readln(n);
  for i := 1 to n do 
  begin
    Write('Введите фамилию ', i, ' работника: ');
    readln(z[i].fam);
    Write('Введите год рождения (1900..2021) ', i, ' работника: ');
    readln(z[i].god);
    Write('Введите профессию ', i, ' работника: ');
    readln(z[i].prof);
    Write('Введите пол (0 - жен, 1 - муж) ', i, ' работника: ');
    readln(z[i].pol);
  end;
  k := n;
end;
 
procedure vivod(z: arrzap; n: integer);
var
  i: integer;
begin
  Writeln('Список работников: ');
  for i := 1 to n do 
  begin
    write(z[i].fam:32, z[i].god:12, z[i].prof:12);
    if z[i].pol = 0 then
      writeln('жен':6)
    else
      writeln('муж':6);
  end;
end;
 
begin
  clrscr;
  vvod(a, n);;
  vivod(a, n);
  
  for i := 1 to n - 1 do  
    for j := i + 1 to n do
      if a[i].prof > a[j].prof then
      begin
        q := a[i];
        a[i] := a[j];
        a[j] := q;
      end;
 
  Writeln('Список работников, отсортированный по профессии: ');
  vivod(a, n);
  writeln('Фамилии людей мужского пола из списка, год рождения которых находится в интервале 1985-1995: ');
  for I := 1 to n do 
  begin
    if (a[i].god >= 1985) and (a[i].god <= 1990 ) and (a[i].pol = 1) then 
      writeln(a[i].fam);
  end;
end.