в чем проблема...

[phasha]

собрал программу но она работает не так как хотелось бы...программа должна быть с типизированным файлом file of integer и должна добавлять в конец файла копии положительных чисел.

 program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

type fint=file of integer;

procedure test4c(var f:fint);
var g:fint;i,x:integer;
begin
reset(f); i:=0; x:=0;
assign(g,'asd.txt');
rewrite(g);
while not eof(f) do begin
read(f,i);
write(g,i);
end;close(f);
reset(f);
while not eof(f) do begin read(f,x);
if x>0 then begin write(g,x);end;
end;
close(f);close(g);
reset (g);
rewrite(f);
while not eof(g) do begin read(g,i); write(f,i);
end; close(f);close(g);erase(g);
end;
var f:fint;
begin
assign(f,'a.txt');
test4c(f);
end.