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

[MayBe]

Помогите, пожалуйста, решить задачу
Создать файл целых чисел. Определить суммы между локальными минимумами, записав их в новый файл.

[MayBe]

на счёт рандомно - я имел ввиду первоначальный файл... его я создал (с этим проблем нет)
а вот с нахождением суммы возникли проблемы

Program z1;
uses crt;
var f, f1: file of integer;
    a, b, c, d, i, min, sum, k, l: integer;
begin
     clrscr;
     randomize;
     assign (f1, 'f1.pas');
     assign (f, 'f.pas');
     rewrite (f);
     b:=10;
     for i:=1 to b do
     begin
          a:=random(50)+25;
          write (f,a);
     end;
     while not eof(f) do
     begin
          read (f,a);
          write (a:4);
     end;
     close (f);
     l:=0;
     reset(f);
     i:=0;
     While i<filesize(f)-4 do
     begin
          read (f, b, c, d);
          if (c<b) and (c<d) then
          begin
               sum:=sum+b;
               seek(f,i);
               i:=i+2;
          end
          else if c>d then
               begin
                    sum:=sum+b;
                    seek(f,i);
                    i:=i+1;
               end
                    else
                    begin
                         sum:=sum+b+c;
                         seek(f,i);
                         i:=i+2;
                    end;
          rewrite(f1);
          write (f1,sum);
          close (f1);
          sum:=0;
     end;
     reset(f);
     for i:=0 to filesize(f)-1 do
     begin
          read (f,a);
          write (a:4);
     end;
     writeln;
     reset (f1);
     read (f1,a);
     write (a:4);
     readln;
end.