Записи в паскале. Экспорт товаров

[Dzhem]

помогите пожалуйста доделать задачу!
Сведения об экспорте различных товаров состоят из страны,
наименования товара и количества(в штуках). Сведения хранятся в
текстовом файле, в котором больше 3-х записей. Найти одну страну, в
которую экспортировалось наибольшее количество товара, имя
которого введено с клавиатура. Стран не больше 20.

type
 exp=record
         strana, tovar:string;
         kol:word;
        end;
var
 expT:exp;
 stranaT,tovarT:=string;
 kolvo:word;
 ch:char;
 f:text;
begin
 assign(f,'export.txt');
 reset(f);
 while not eof(f) do begin
  stranaT:='';
  repeat
   read(f,ch);
   stranaT:=stranaT+ch;
  until ch=' ';
  tovarT:='';
  repeat
   read(f,ch);
   tovarT:=tovarT+ch;
  until ch=' ';
  read(f,kolvo);
  readln;

вот. а дальше, нужно ввести название товара, из всех записей, в которых есть этот товар, нужно найти запись с наибольшим количеством этого товара, и выдать на экран страну экспортера.
Спасибо!