записи - структура (пару вопросов)

[felmor]

Доброго времени суток. Очень требуется Ваша помощь.
Возникла маленькая проблема в данном коде, дело в том что я незнаю как поставить правильно запрос в данной процедуре (в основном коде я её выделил):

procedure search;
  var j,men:integer;
   begin
              reset(meter);
    read(meter,i);
    close(meter);
              reset(t);
   j:=1;
   read(t,str);
   men:=str.cost;
    for j:=2 to i do begin
    read(t,str);
 if men>deposit.cost then men:=str.client.cost;<<<проблема тут(задание- см.ФОТО
    end;
   close(t);
             reset(t);
             for j:=1 to i do
    begin
    read(t,str);
     if min=str.cost then
      begin
      clrscr;
    writeln(j,' firm - ',str.firm);
    writeln('   cena- ',str.cost);
    writeln('   type - ',str.type);
    writeln('   money ');
    writeln('   deposit - ',str.client.deposit);
    writeln('   procent - ',str.client.proc);
    writeln('    ne vipl summa - ',str.client.npaid);
       TextColor(15);
       readln;
       end;
    end;
    TextColor(15);
    writeln(' press any key ');
    readln;
   end;

Я думаю тут особо копатся в программе не надо, что бы понят как сделать правильно
Надеюсь на вашу помощь
ВЕСЬ КОД ПРОГРАММЫ НА TXT:

[Sazary]

Если правильно понял, то нужно как-то вот так:

 if men>str.client.deposit then men:=str.cost;