Добавить процедуру в готовую программу - Pascal ABC

program Kursova;
 uses crt;
type
Data=record
Day:1..31;
Month:1..12;
Year:integer;
end;
  TOtdel=record
  ffam:string[25];
  BDate:Data;
  fpol:char;
  end;
  var
    Zap:TOtdel;
    Mas:array [1..40] of TOtdel; 
    vibor:Byte;
    n,t:Integer;
    fami:string[25];
    f:file of TOtdel;
       procedure vvod;
 var
  i: integer;
begin
  Assign(f, 'kursov.dat');
  rewrite(f);
  Write('Введите количество работников: ');
  readln(n);
  for i := 1 to n do
  begin
    writeln('Введите', ' ', i, ' ', 'работника');
 
    write('Введите фамилию работника: ');
    readln(Zap.ffam);
    write('Введите число от 1 - 31: ');
    readln(Zap.BDate.Day);
     write('Введите месяц от 1 - 12: ');
    readln(Zap.BDate.month);
    Write('Введите год рождения: ');
    readln(Zap.BDate.year);
 
        Write('Введите пол работника(м;ж): ');
        readln(Zap.fpol);
                    write(f, Zap);
  end;
  close(f);
end;
procedure Readf;
var
  i: integer;
begin
clrscr;
  assign(f, 'kursov.dat');
  reset(f);
  i := 1;
  while not (eof(f)) do
  begin
    read(f, Mas[i]);
        Writeln(i:4,'  ',Mas[i].fpol,' ',Mas[i].ffam:15, ' ', ' ',Mas[i].BDate.Day, '.',Mas[i].BDate.month,'.',Mas[i].BDate.year);
 
    i := i + 1;
 
  end;
  close(f);
 
  n := i - 1;
  writeln(n);
end;
{----------------------------------------------------------------------------------------------------------------------------------------------------------------------------}
procedure Add;
var
  i: integer;
begin
clrscr;
  rewrite(f);
  
  for    i := 1 to n do
    write(f, Mas[i]); //Записываем в массив записей
  
  Writeln('Введите ', ' ', n + 1, ' ', 'работника');
  write('Введите фамилию работника: '); readln(Zap.ffam);
  write('Введите число от 1 - 31: '); readln(Zap.BDate.Day);
    write('Введите месяц от 1 - 12: ');
  readln(Zap.BDate.month);
  Write('Введите год рождения: ');
  readln(Zap.BDate.year);
 Write('Введите пол работника(м;ж): '); readln(Zap.fpol);
    writeln;
  write(f, Zap);
  close(f);
 
end;
 
{--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------}
 
procedure delete;
var
  i: integer;
begin
clrscr;
  i := 1;
  assign(f, 'kursov.dat');
  reset(f);
 
  while not eof(f) do
  begin
    read(f, Mas[i]);
    i := i + 1
  end;
 
  close(f);
  write('Выберите номер удаляемой записи которую вы хотите: ');
  readln(n);
  reset(f);
  seek(f, filesize(f) - 1);{ Ставим указатель перед последним компонентом }
  read(f, Mas[i]);
  seek(f, n - 1); { Ставим указатель перед удаляемым файлом }
  write(f, Mas[i]);{ Записываем конечный компонент вместо удаляемого }
                    { убираем последний элемент файла }
  seek(f, filesize(f) - 1);{ Ставим указатель перед последним компонентом }
 
  truncate(f);{ Отсекаем последний компонент }
  
  Writeln('Удаление прошло успешно!!!');                                
  Writeln('Количество записей ',n-1);
end;
//-----------------------------------------------------------------------
procedure Search;
 
begin
clrscr;
    
          write('Введите фамилию работника которого надо искать: ');
          readln(fami);
          reset(f);
          t := 0;
          while not eof(f) do
          begin
            read(f, Zap);
            if Zap.ffam = fami then{если фамилия совпала}
            begin
              t := 1;{фиксируем}
              writeln('Найдент работник с такой фамилией!!!');
              Writeln('Выводим запись');
              Writeln(Zap.ffam:15,'  ', Zap.fpol, '  ', Zap.BDate.Day,'.', Zap.BDate.month, '.', Zap.BDate.year);
            end;
          end;
          if t = 0 then writeln('Такого работника нету!!!');{если нет совпадений}
          close(f);
        end;
    //-----------------------------------
    procedure vivod;
      var
      i:integer;
      maxID:integer;
      begin
      clrscr;
      Writeln('Вывод старшего мужчины!');
      maxId:=1;
      for i:=2 to n do
         if (mas[i].fpol='м')and(mas[i].BDate.Year > mas[maxID].BDate.Year) then
      maxId := i
    else
      if(mas[i].fpol='м')and (mas[i].BDate.Month < mas[maxID].BDate.Month) then
        maxId := i
      else
        if(mas[i].fpol='м')and (mas[i].BDate.Day < mas[maxID].BDate.Day) then
          maxID := i;
  WriteLn('//--------------------------------------------------------');
  with mas[maxID] do
  begin
  Writeln('Самый старший мужчина');
    WriteLn('Surname: ', ffam);
    WriteLn('Date: ', BDate.Day, '.', BDate.Month, '.', BDate.Year);
    WriteLn('Pol: ',fpol, '-(мужчина)');
  end;      
      end;
 
//-------------------------------------------------------------------------------------------------------------    
    procedure vivod2;
      var
      i:integer;
      c:char;
      k:boolean;
      begin
      clrscr;
            Write('Введите букву фамилии: ');readln(c);
           k:=false;
           for i:=1 to n do begin
            if (mas[i].ffam[1]=c) then 
      Writeln(Mas[i].ffam:15,'  ', 'пол: ',Mas[i].fpol, '  ', Mas[i].BDate.Day,'.', Mas[i].BDate.month, '.', Mas[i].BDate.year);
           k:=false;
          end;
      if (k=true)or(mas[i].ffam[1]<>c) then writeln('Список людей не найдены по заданной букве!');
      end;
//---------------------------------------------------------------------------------------------------------------      
      procedure vivod3;
      var m:integer;
      i:integer;
      key:boolean;
      begin
      clrscr;
           Write('Введите месяц рождения: '); readln(m);
      key:=true;
     for i:=1 to n do begin
      if (mas[i].BDate.Month=m) then begin
       Writeln(Mas[i].ffam:15,'  ', Mas[i].fpol, '  ',Mas[i].BDate.month);
       
       key:=true;
       end;end;
       if (key=false)or(mas[i].BDate.Month<>m) then Writeln('Список людей родившихся в этом месяце нет!');
      end;
      
begin
  clrscr;
 
  Writeln('Выберите действия:');
  Writeln('1 - Ввод данных в файл');
  Writeln('2 - Чтение с файла');
  Writeln('3 - Добавление в файл');
  Writeln('4 - Удаление записи');
  Writeln('5 - Поиск информации');
  Writeln('6 - Вывод старшего работника');
  Writeln('7 - Фамилии начинающиеся с заданной буквы');
  Writeln('8 - Cписок людей родившихся в заданном месяце');
  Writeln('9 - Выход');
  Readln(vibor);
  while vibor<9 do
  begin
  case vibor of
  1:vvod;
  2:ReadF;
  3:Add;
  4:delete;
  5:Search;
  6:vivod;
  7:vivod2;
  8:vivod3;
 end;
   writeln;
    Writeln('Выберите действия от 1-9:');
  Writeln('1 - Ввод данных в файл');
  Writeln('2 - Чтение с файла');
  Writeln('3 - Добавление в файл');
  Writeln('4 - Удаление записи');
  Writeln('5 - Поиск информации');
  Writeln('6 - Вывод старшего работника');
  Writeln('7 - Фамилии начинающиеся с заданной буквы');
  Writeln('8 - Cписок людей родившихся в заданном месяце');
  Writeln('9 - Выход');
    readln(vibor);
  end;
 
 end.