куча записей. нужно посчитать максимальные, значения элементов Опции

[-StRaNNiK-]

Такая задача:

Завод выпускает продукцию 5 видов. Сведения о производстве хранятся в файле. Определить, какой продукции выпускается больше всего по кличеству и по стоимости в течение 3-х дней. Данные регистрируются ежедневно

Первую часть сделал. Данные регистрируются и записываются в файл:

type
  production = record
  name: String[20];
  cena: real;
  kol:integer;
end;
var
  fajlo: file of production;
  i,j:integer;
  a: array [1..5] of production;
  temp:production;
begin
  Assign(fajlo,'fajlo');
  ReWrite(fajlo);
  writeln('Введите 5 наименований выпускаемой продукции:');
  for i:=1 to 5 do
    readln(a[i].name);
  for i:=1 to 3 do begin
    Writeln('--------День ',i,'--------');
    for j:=1 to 5 do begin
      WriteLn('Введите цену 1 товара: ',a[j].name);
      ReadLn(a[j].cena);
      WriteLn('Введите кол-во выпущенного товара');
      ReadLn(a[j].kol);
      Write(fajlo,a[j]);//запись о товаре в i день записалась в файл
    end;
  end;
  Reset(fajlo); //закрываем файл и открываем на чтение

Вроде все работает. Т.е. если сейчас посмотреть каждую позицию файла, то мы увидим следующее:

позиция файла:
0 день 1 товар1
1 день 1 товар2
2 день 1 товар3
3 день 1 товар4
4 день 1 товар5

5 день 2 товар1
6 день 2 товар2
7 день 2 товар3
8 день 2 товар4
9 день 2 товар5

10 день 3 товар1
11 день 3 товар2
12 день 3 товар3
13 день 3 товар4
14 день 3 товар5
товар_X - запись с инфой о товаре X

Вот теперь нужно как-то посчитать суммарное кол-во выпущенного каждого товара, сравнить и вывести, какого выпустили больше. Тоже самое нужно повторить и со стоимостью.
Что-то вообще не пойму, как это сделать. Циклы, а как их построить не могу понять