Дан файл вещественных чисел.

[xilnurx]

Задачка: Дан файл вещественных чисел. Переписать в новый файл все компоненты, расположенные после первого положительного.

я попытался сделать но не получается, выводит мне число после последнего положительного числа, а мне надо после первого положительного числа....

Вот программа..помогите доделать ее:

program Var13_Lab7;
Uses crt;
Var
f,f2: File of real;
n,i,np:integer;
c,pol:real;
Begin
clrscr;
assign(f,'d:\file1.dat');
rewrite(f);
assign(f2,'d:\file2.dat');
rewrite(f2);
write('n=');
readln(n);
For i:=1 to n do
Begin
write('F',i,'=');
readln(c);
write(f,c);
End;
reset(f);
read(f,c);
{pol:=c;}
seek (f,0);
While not eof(f) do
Begin
read(f,c);
if c>0 then
begin
pol:=c;
np:=filepos(f);
end;
End;
writeln('Позиция первого положительного числа: ',np);
reset(f);
seek(f,np);
While not eof(f) do
Begin
read(f,c);
write(f2,c);
End;

reset(f2);
While not(eof(f2)) do
Begin
read(f2,c);
writeln(c:2:2,' ');
End;
close(f2);
close(f);
writeln('Первое положительное число: ',pol:2:2);
readln;
End.