сохранение инфо в типизированном файле

[prostac]

Доброго времени суток!!!

Помогите с программой пожалуйста.....
Информация о выдаче денег при уходе сотрудников в отпуск содержит следующие данные: фамилия, должность, дата ухода в отпуск (номер месяца и дня в нем), начисленная сумма.
Написать программу, в которой:
обеспечить ввод данных с клавиатуры и сохранение их в типизированном файле;
организовать выборку из типизированного файла информации о сотрудниках заданной должности с минимальным начислением, вывод данных о них на экран и сохранение в текстовом файле.

вот мой вариант:
Код Pascal1

Program Z4;
type
 
  t_mgts= record        
    fam,dol, tel: string;  {familia}
    d, m: integer; {den,mesajc}
    pl: real;        {viplata}
  end;
var
  m: t_mgts;         {peremennaji dlaj hraneniaj dannih}
  f: file of t_mgts; {fail dlaj hraneniaj dannih}
  ft: text;          {fail dlaj hraneniaj rezultatov obrabotci}
  ans: char;             
  mz: integer; 
  s: real;
begin
 
  assign( f, 'mgts.dat');
  rewrite( f);
  repeat
 
    with m do
    begin
      write('Familia? ');            readln(fam);
      write('Nomer telefona? ');   readln(tel);
      write('Dolgnost? ');            readln(dol);
      write('Mesajc? ');            readln(m);
      write('Den mesajca? ');      readln(d);
      write('Plata? '); readln(pl);
 
    end;
 
    write( f, m);
 
    write('Vvod oconchen? ');
    readln(ans);
 
  until (ans='Y') or (ans='y');
 
  close( f);
 
 
  write('Zadannij mesajc? ');  readln(mz);
    s:=0;
 
  reset( f);
 
 
  begin
 
    read( f, m);
if (m.m<mz) then
 
    begin    
 
 
  assign(ft, 'mgts.txt');
  rewrite(ft);
 
  reset(f);
 
  while not eof(f) do
 
  begin
 
    read( f, m);
 
    with m do
      if (m=mz) and (pl<s+1) then
 
      begin
 
        writeln( fam, tel, m, d, pl);
 
        writeln( ft, fam, tel, m, d,pl);
      end;
  end;
 
  close(ft);
  readln
end;
end;
end.

короче проблема в том,что не выходит вывести информацию о сотрудниках с минимальной выплатой на экран и сохранение всего этого в типизированном файле...
Зарание спасибо!!!

[dr.Chas]

program Project1;

{$APPTYPE CONSOLE}

  type  t_mgts=record
        fam : string[15];
        dol: string[10];
        tel: string[15];
        den, mes: byte;
        viplata : real;
  end;
var
  fail: file of  t_mgts; {fail dlaj hraneniaj dannih}
  s:  t_mgts;         {peremennaji dlaj hraneniaj dannih}
  txtf: text;          {fail dlaj hraneniaj rezultatov obrabotci}
  ans: char;
  dolg: string;
  mzarpl: real;
begin

  assign( fail, 'C:\mgts.dat');
  rewrite(fail);
  repeat
    with s do
    begin
      write('Familia? ');            readln(fam);
      write('Nomer telefona? ');   readln(tel);
      write('Dolgnost? ');            readln(dol);
      write('Mesajc? ');            readln(mes);
      write('Den mesajca? ');      readln(den);
      write('Plata? '); readln(viplata);
    end;
    write( fail, s);
    write('Vvod oconchen? da="y": ');
    readln(ans);
  until (ans='Y') or (ans='y');

  close( fail);



  write('Vvedite dolgnost? ');
  readln(dolg);

  reset(fail);
  read( fail, s);
  mzarpl:=s.viplata;
  writeln('----------------------');
  while not eof(fail) do
  begin
    read( fail, s);
    if (s.dol=dolg)and(s.viplata<mzarpl) then mzarpl:=s.viplata;
  end;
  closeFile(fail);
  assign( fail, 'C:\mgts.dat');
  reset(fail);

  assign(txtf, 'C:\mgts2.txt');
  rewrite(txtf);
  while not eof(fail) do
  begin
    read(fail, s);
    if (s.dol=dolg)and(s.viplata=mzarpl) then
    begin
      write('Familia: ');            writeln(s.fam);
      write('Nomer telefona: ');   writeln(s.tel);
      write('Dolgnost: ');            writeln(s.dol);
      write('Mesajc: ');            writeln(s.mes);
      write('Den mesajca: ');      writeln(s.den);
      write('Plata: '); writeln(s.viplata:6:2);

      writeln(txtf, 'Familia: ',s.fam, '  Nomer telefona: ',s.tel,
      '  Dolgnost: ',s.dol,'  Plata: ', s.viplata );
      writeln('----------------------');
    end;
  end;
  closeFile(fail);
  closeFile(txtF);

  readln
end.

Если первой должностью в файле будет минимальная зарплата, и эта должность не является запрашиваемой то он не сработает. Это оставлю вам доделывайте.

[prostac]

спасибо огромное