писал программу вылезло "попытка вызвать процедуру как функцю" объясните че не так

[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 seek (f,4)
         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
         b[i]:=filepos(f)-1;
         write (b[i]:5);
         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;
      close (f);
      
end.

пишет ошибку вот на этом шаге

s:=0;
a:=1;
reset (f);
while not eof (f) do
      begin
      read (f,a);
         begin
         repeat
         s:=s+a;
         until seek (f,4)
         end;
      end;

а именно здесь

 until seek (f,4)

че за фигня не пойму объясните плз че да как если сможете исправьте ошибку

заранее благодарю!!

[Жека-старший]

repeat
until seek (f,4)

после клюючевого слова until должно стоять условие, т.е. рез-т которого будет либо истина либо ложь.
а не оператор или функция.

[Жека-старший]

к примеру

repeat  
    inc(i);
    writeln(i);
     until i>30;

[PlayHard]

Сообщение от Жека-старший

к примеру

repeat  
    inc(i);
    writeln(i);
     until i>30;

а как же будет в моем случае (мне надо чтоб условие выполнялось пока указатель не станет на 3 компонент файла)
помогите плз не догоняю

[Grag]

Ну так и отслеживай файловый указатель...

[PlayHard]

Сообщение от Grag

Ну так и отслеживай файловый указатель...

то есть?? ты о чем??? я не про я прост любитель так что плз с комментариями или наглядными примерами...а то я чет не поймуо чем ты

[Жека-старший]

repeat
............
............
............
until filepos(f1)=4;

так попробуй

[PlayHard]

Сообщение от Жека-старший

repeat
............
............
............
until filepos(f1)=4;

так попробуй

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

[mifomen]

Поставь удерживать информацию на экране до нажатия клавиши.