Вывести все данные в табличном виде и определить средний вес женщин

 uses crt;
 const n=5;
 
 type maxlong=1..10000000;
      a=record
       fam: string[25];
       dolgnost: string[50];
       plata: maxlong;
       stag: byte;
      end;
      mas=array[1..n] of a;
 
 var zap: mas;
 
 procedure input(zapis_in: mas; var zapis_out: mas);   {ввод элементов записи}
  var i: byte;
  begin
   for i:=1 to n do
    with zapis_in[i] do
     begin
      write('введите фамилию ',i,'-ого сотрудника: ');
      readln(fam);
      write('его должность: ');
      readln(dolgnost);
      write('заработная плата: ');
      readln(plata);
      write('стаж работы: ');
      readln(stag);
      writeln;
     end;
   for i:=1 to n do
    zapis_out[i]:=zapis_in[i];
   writeln('ввод данных окончен');
   writeln('для продолжения нажмите любую клавишу...');
   readkey;
  end;
 
 procedure zagltabl;   {заголовок таблицы}
  begin
   writeln('       ---------------------------------------------------------------');
   writeln('      |                 |                 |              |            |');
   writeln('      |     фамилия     |    должность    |   зарплата   |    стаж    |');
   writeln('      |                 |                 |              |            |');
   writeln('       ---------------------------------------------------------------');
  end;
 
 
 procedure tabl1;    {горизонтальный разделитель}
  begin
   write('      |                 |                 |              |            |');
  end;
 
 procedure tabl2;    {вертикальный разделитель}
  begin
   write('       ---------------------------------------------------------------');
  end;
 
 procedure output(zapis_out: mas);    {вывод компонентов записи в виде таблицы}
  var i,j: byte;
  begin
   writeln('                        "Таблица предприятия..." ');
   zagltabl;
   for i:=1 to n do
    with zapis_out[i] do
     begin
      if i=1 then j:=i+6
      else j:=j+2;
      tabl1;
      gotoxy(12,j);
      write(fam);
      gotoxy(29,j);
      write(dolgnost);
      gotoxy(48,j);
      write(plata);
      gotoxy(64,j);
      writeln(stag);
      tabl2;
      writeln;
     end;
   writeln('для продолжения нажмите любую клавишу...');
   readkey;
   clrscr;
  end;
 
 function sredn(zapis: mas): real;   {нахождение среднего значения зарплат}
  var i: byte; sr: real;
  begin
   sr:=0;
   for i:=1 to n do
    sr:=sr+zapis[i].plata;
   sredn:=sr/n;
  end;
 
 procedure poisk1(zapis: mas);   {поиск поля plata, удовлетворяющего условию 1}
  var i,num: byte; u: boolean;
  begin
   u:=false;
   for i:=1 to n-1 do
    if zapis[i].plata<>zapis[i+1].plata then u:=true;
   if u=true then
   begin
    num:=1;
    writeln('   заработная плата ниже средней по предприятию у следующих работников:');
    for i:=1 to n do
     if zapis[i].plata<sredn(zapis) then
      begin
       writeln('   ',num,')  ',zapis[i].fam);
       inc(num);
      end;
   end
   else writeln('   все работники получают одинаковую заработную плату');
   writeln;
  end;
 
 procedure poisk2(zapis: mas);   {поиск поля stag, удовлетворяющего условию 2}
  var u: boolean; i: byte;
  begin
   for i:=1 to n do
    if zapis[i].stag>10 then u:=true;
   if u=true then
    begin
     writeln('   на предприятии стаж свыше 10-ти лет имеют следующие работники: ');
     for i:=1 to n do
      if zapis[i].stag>10 then
       begin
        writeln('   ',i,')  фамилия: ',zapis[i].fam);
        writeln('       зарплата: ',zapis[i].plata);
        writeln('       стаж работы: ',zapis[i].stag);
        writeln('       должность: ',zapis[i].dolgnost);
        writeln;
       end;
    end
   else writeln('   все работники предприятия имеют стаж меньше 10-ти лет');
  end;
 
  procedure result;   {объединение ранее описанных процедур в результирующую}
   begin
    clrscr;
    writeln('ввод исходных данных: ');
    input(zap,zap);
    clrscr;
    output(zap);
    poisk1(zap);
    poisk2(zap);
    readkey;
   end;
 
 begin   {логика программы}
  result;
 end.