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

[mfractus]

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

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

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

[mfractus]

Вот что получилось, но где то ошибка, точнее код - одна сплошная ошибка

Program Files_1;
var
   F: file of integer;
   buf,Imin,Imax,Min,Max,i,S,P,b,a:integer;
begin
     Assign(F,'.dat');
     rewrite(F);
     writeln('Ââåäèòå êîìïîíåíòû ôàéëà öåëûå ÷èñëà, îêîí÷àíèå ââîäà 999:');
     while buf<>999 do
      begin
       readLn(buf);
       if buf<>999 then write(F,buf);
      end;
     reset(F);
     writeln('Èñõîäíûé ôàéë:');
     read(F,Min);
     write(Min,' ');
     Max:=Min;
     Imin:=0;
     Imax:=0;
     for i:=1 to filesize(F)-1 do
      begin
       read(F,buf);
       write(buf,' ');
       if buf>Max then
        begin
         Max:=buf;
         Imax:=i;
        end;
       if buf<Min then
        begin

         Min:=buf;
         Imin:=i;
         end;
      end;
      close(f);
      writeLn;
     S:=0;
     P:=1;
     S:=Min+Max;
     writeLn('Ñóììà=',S);
     P:=Min*Max;
     writeLn('Ïðîèçâåäåíèå=',P);
     reset(F);
           begin
           reset(F);
                seek(F,0);
                read(F,a);
                seek(F,filesize(F)-1);
                read(F,b);
                a:=S;
                b:=S;


           end;
     if i mod 3=2 then
       begin
        read(F,buf);
        buf:=buf+p;
        seek(F,i);
        write(F,buf);
       end;
     

     close(F);
     reset(F);
     while not eof(f) do
   begin
    read(f,buf);
    write(buf,' ');
   end;

  close(f);
  writeLn('Íàèáîëüøåå èç çíà÷åíèé êîìïîíåíò=',Max);
  writeLn('Íàèìåíüøåå èç çíà÷åíèé êîìïîíåíò=',Min);
  writeln('Ñîäåðæàíèå èçìåíåííîãî ôàéëà:');
  writeLn('ïåðâûé êîìïîíåíò=',a);
  writeLn('ïîñëåäíèé êîìïîíåíò=',b);
end.