Записи и Типизированные файлы. Структура: фамилия, дата зачисления в штат, название отдела, должность, оклад

uses crt;
type
sotrudnik=record
fam:string[20];
otdel:string[20];
zachislen:string[10];
dolzhnost:string[20];
oklad:integer;
end;
var
s_k:file of sotrudnik;
n,mainpunkt,i,poz,k:integer;
s_pole:sotrudnik;
p_year:string[10];
kategoriya:string[20];
begin
k:=0;
repeat
clrscr;
writeln('Сотруднмики.');
writeln('>1.Ввод данных');
writeln('>2.Стаж и должность(вывод даных)');
writeln('>3.Выход');
write('>>>');
read(mainpunkt);
case mainpunkt of
1:Begin
    clrscr;
    write('Сколько добавить записей-->');
    readln(k);
    assign(s_k,'info.dat');
    reset(s_k);
    poz:=filesize(s_k);
    seek(s_k,poz);
    for i:=1 to k do
    with s_pole do
     begin
      writeln(i,' запись');
      writeln('------------------------------------------------------------');
      write('>Фамилия:');
      readln(s_pole.fam);
      write('>Отдел:');
      readln(s_pole.otdel);
      write('>Дата зачисления:');
      readln(s_pole.zachislen);
      write('>Должность:');
      readln(s_pole.dolzhnost);
      write('>Оклад:');
      readln(s_pole.oklad);
      write(s_k,s_pole);
      writeln('------------------------------------------------------------');
     end;
    close(s_k);
  End;
2:Begin
    clrscr;
    write('>Введите дату зачисления на работу-->');
    readln(p_year);
    write('>Введите должность--->');
    read(kategoriya);
    clrscr;
    writeln('Список сотрудников:');
    assign(s_k,'info.dat');
    reset(s_k);
    read(s_k,s_pole);
      while not eof (s_k) do
             begin
               read(s_k,s_pole);
               with s_pole do
               if (s_pole.zachislen=p_year)and(s_pole.dolzhnost=kategoriya) then
               writeln(s_pole.fam);
             end;
    close(s_k);
  readln;
  End;
end;
until mainpunkt>=3;
end.