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

[mfractus]

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

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

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

[volvo]

Прошу помощи в решении задачи.

"Помощь" и "Получение готового кода" - это разные вещи, если что. Начинай, говори, что сделал, что и где непонятно, подскажем. А делать за тебя - извини, это никому не сдалось...

[mfractus]

"Помощь" и "Получение готового кода" - это разные вещи, если что. Начинай, говори, что сделал, что и где непонятно, подскажем. А делать за тебя - извини, это никому не сдалось...

Здравствуйте! Я разграничиваю эти понятия и прошу именно помощи.

Program Files_1;
var
   F: file of integer;
   buf:integer;
begin
     Assign(F,'.dat');
     rewrite(F);
     writeLn('Введите первую компоненту файла');
     readLn(buf);
     while buf<>999 do
           begin
                write(F,buf);
                writeLn('Введите следующую компоненту:');
                readLn(buf);
           end;
     reset(F);
     while not EOF(F) do

Дальше, так думаю, необходимо найти экстремельные значения. По аналогии с массивами сделать не удалось, не сумел.