Работа с текстовым файлом, ПОВЕШУСЬ!!! Опции

[Олежик]

Ребят..
выручите плиз....
Меня из инста вышвырнут, если я её не сделаю.
Заранее спасибо!
Вот задача...
...
...
...
...
составить алгоритм и прогу определения по данным из таблицы банка, купившего акции на наибольшую сумму!!!
Таблица нах. в текст. файле list.txt ! Каждая строка таблицы содержит 4 поля. Первое - поле символьного типа, содержит название банка. Длина поля - 15 символов! Второе поле - символьного типа, содержит название компании, акции которого куплены банком. Длина поля - 20 символов. Третье поле - числового типа, содержит кол-во акций, купленных банком. Четвёртое поле - -числового типа, содержит стоимость одной акции в рублях.
Длина каждого из этих полей - 5 символов!!!!
...
...
Язык PASCAL!!!
=)

ПЛИЗ!!!

[NTL]

Код

while not EOF(f1)do
       begin
            readln(f1,bank,comp,nmAczi,stAczi);
            if nmAczi*stAczi>max then
               begin
                   mxBank:=bank;
                   max:=nmAczi*stAczi
               end;
         end;
  write('mxBank = ',mxBank);
  close(f1);

[Олежик]

Код

while not EOF(f1)do
       begin
            readln(f1,bank,comp,nmAczi,stAczi);
            if nmAczi*stAczi>max then
               begin
                   mxBank:=bank;
                   max:=nmAczi*stAczi
               end;
         end;
  write('mxBank = ',mxBank);
  close(f1);

т.е. Я открываю файл.....
Название банка кидаю в bank,
Кто купил кидаю comp,
сколько купили - nmAczi;
цеена одной....stAczi,


Я правильно понял?
если да....
вопрос....
как мне их туда кинуть......
с помощью оператора with?
Напишите пожалуйста...