Типизированные файлы Опции

[mfractus]

Доброго времени суток! Прошу помощи в решении задачи. Заранее спасибо!

Текст задачи.

Сформировать файл G. Определить сумму и произведение наибольшего и наименьшего из значений компонент. Заменить значением суммы первую и последнюю компоненты, а на значение произведения – увеличить каждую третью компоненту файла. Файл вывести до и после преобразования.

[mfractus]

Вот что еще написал.

     read(F,Min);
     write(Min:5);
     Max:=Min;
     Imin:=0;
     Imax:=0;
     for i:=1 to filesize(F)-1 do
         begin
              read(F,buf);
              write(buf:5);
              if buf>Max then
                 begin
                      Max:=buf;
                      Imax:=i;
                 end;
              if buf<Min then
                 begin
                      Min:=buf;
                      Imin:=i;
                 end;
         end;
     writeLn('Наибольшее из значений констант',Max);
     writeLn('Наименьшее из значений констант',Min);
     close(F);
end.

Ошибка: Попытка чтения за концом файла. Вот на этой стороке read(F,buf);