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); //закрываем файл и открываем на чтение

...
  for i := 1 to 5 do
    with a[i] do begin
      cena := 0; kol := 0;
    end;

  while not eof(fajlo) do begin
    read(fajlo, temp);
    for i := 1 to 5 do
      if temp.name = a[i].name then begin
        a[i].cena := a[i].cena + temp.cena;
        inc(a[i].kol, temp.kol);
      end;
  end;
  close(fajlo);

  max_cena := 1;
  max_kol := 1;
  for i := 1 to 5 do
    with a[i] do begin
      if cena > a[max_cena].cena then max_cena := i;
      if kol > a[max_kol].kol then max_kol := i;
    end;
  writeln('max(cena): ', a[max_cena].name, ' = ', a[max_cena].cena:10:5);
  writeln('max(kol) : ', a[max_kol ].name, ' = ', a[max_kol ].kol:10);
...

var
  max_cena, max_kol: integer;