Дана информация о рабочих предприятия. Сортировка. Поиск

Program Zavod;
uses crt;
Type
    zavod = record
    fam: string[20];
    tn: integer;
    nu: integer;
    zp:real;
    end;
    
Var
   FZavod:File of zavod;
   Z:Zavod;
   i,N:byte;
   k:byte;
   
Function Menu:byte;
   var
      x:byte;
   Begin
   Writeln('1. Сформировать таблицу ');
   Writeln('2. Отклонение от средней заработной платы');
   Writeln('3. Сортировка списка');
   Writeln('4. Информация о работнике по участкам');
   Writeln('0. Выход');
   Writeln;
   Writeln('Введите номер пункта');
   Writeln;
   Writeln;
   Writeln;
   Writeln;
   Writeln;
   Writeln;
   Writeln;
   Writeln;
   Writeln;
   Writeln;
   writeln;
   writeln;
   writeln;
   writeln;
   writeln;
   writeln;
   Textcolor(DarkGray);
   Writeln('                                                         |3Y_4N9PE1_74N4eZ ');
   Textcolor(black);
   gotoxy(1,i+8);
   Readln(x);
   menu:=x;
   End;
 
Procedure tp1;
var
   x:boolean;
   nu, j:integer;
   fam: integer;
   tn: integer;
   zp:real;
   Label Met;
Begin
ClrScr;
writeln('введи данные: ');
TextColor(red);
writeln('|----------|-------------|---------------------|-------------------|');
writeln('|Ф.И.О.    |   Таб. №    |        № Участка    |       Зарплата    |');
writeln('|----------|-------------|---------------------|-------------------|');
{textColor(black);}
for j:=0 to 9 do begin
GoToXY(2,i+5+j);
readln(fam);
{Case fam of
'а'..'я':goto m1;
else begin writeln('В столбце ФИО осуществляется только ввод букв.');
 
Gotoxy(2,i+5);
ClrEol;}
 
GoToXY(20,i+5+j);
readln(tn);
GoToXY(35,i+5+j);
Met:read(nu);
If nu>10
then
Begin
GoToXY(40,i+5+j);
Write('Неверный номер участка. Повторите ввод');
Delay(2000);
GoToXY(40,i+5+j);
ClrEol;
GoToXY(35,i+5+j);
ClrEol;
Goto Met;
end;
GoToXY(50,i+5+j);
readln(zp);
end;
end;
 
 
 
Begin
Repeat
ClrScr;
k:=Menu;
writeln('                                                                                                                                                                                                                      by ANdrei and Sanya P-10™');
Case k of
0:Writeln('Работы программый завершена');
1:tp1;
{2:tp2;
3:tp3;
4:tp4;}
Else
Begin
Writeln('Ошибка!');
Readln;
Writeln;
End;
End;
Until k=0;
End.