ФАЙЛЫ И МАССИВЫ

[PlayHard]

Сформировать файл F целого типа.Найти S - сумму первых трех положительных компонент файла (считая, что они имеются в файле).Если S>10, то получить из файла одномерный массив B, записывая в него каждую вторую компоненту файла. Массив распечатать.Если S<=10, то каждую компоненту файла увеличить на величину S. Файл распечатать.

сам вот проггу написал ток она не выводит конечный результат

program laba6;
var f:file of integer;
    B:array[1..999] of integer;
    s,a,n,i:integer;
begin
assign (f,'1.dat');
rewrite (f);
writeln ('введите 1-ый компонент файла');
readln (a);
n:=1;
while a<>999 do
      begin
      write (f,a);
      writeln ('следующии компонент или 999 для выхода');
      readln (a);
      n:=n+1;
      end;
s:=0;
a:=1;
reset (f);
while not eof (f) do
      begin
      read (f,a);
         begin
         repeat
         s:=s+a;
         until filepos(f)=4;
         writeln ('сумма s первых 3-х элементов равна: ',s);
         end;
      end;
reset (f);
while not eof (f) do
      begin
      for i:=1 to n do
      read (f);
      if s>10 then
        begin
         if (filepos(f) mod 2)=0 then
         write (b[i]);
         if s<=10 then
         a:=a*s;
         write (f,a);
         end;
      end;
reset (f);
while not eof (f) do
      begin
      read (f,a);
      write (a:5);
      end;
      for i:=1 to n do
      begin
      writeln (b[i]);
      end;
      close (f);
end.

ПОСМОТРИТЕ ЧЕ НЕ ТАК
ЛИЧН Я НЕ ВИЖУ ОШИБКИ НО ОНА ЕСТЬ!!!!

ЗАРАНЕЕ БЛАГОДАРЮ ЗА ПОМОШЬ!!