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

[MayBe]

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

[amega]

давай по порядку
все вот это

 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;

можно записать как

     writeln('введите количество чисел ');
     readln(b);
     for i:=1 to b  do
     begin
          a:=random(50)+25;
          write (f,a);
          write(a:4);
     end;
   readln;  //дляя просмотра чисел, можно и не писать.
     seek(f,0)
     l:=0;
     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;

тоесть нужно сначала провеку зделать вдруг там 2 или 1 число;

if filesize(f)<3 then 
  begin
    writeln('min nety');
    readln;
    halt;
 end;

мини функция

function my(a,b,c:integer):boolean;
 begin
   my:=false;
   if (b<c) and (b<a) then my:=true
 end;   

потом

i:=0;
 while i<=filesize(f)-3 do 
   begin
     read(f,a,b,c);
     if  my(a,b,c) then sum:=sum+b;
     seek(f,i+2);
     i:=i+1;
   end;

и потом sum записіваеш в файл