И в чем, позвольте поинтересоваться, тайный смысл закрытия файла после каждого прохода?
И в том чтобы 3 раза читать из файла один и тот-же массив?

Ну и тут цикл зачем?
for i:=1 to 1 do
begin
read(f,a[i]);
max_kol:=a[1].kol;
max_ves:=a[1].ves;
end;
close(f);
reset(f);

Нерационально батенька!

Я конечно на Паскале не писал ничего уже лет 10, но по моему можно просто сбросить указатель в начало файла, командой Seek без его закрытия.

а про максимум - там цикл зачем нужен? Можно просто написать:

read(f,a[1]);
max_kol:=a[1].kol;
max_ves:=a[1].ves;

без цикла.