Заполнить типизированный файл целыми числами

uses crt;
 
 
var F:file of integer;
    i,u,O,P,pos,v:integer;
 
 
Procedure vivod;
begin
Assign(F,' ');
{$I-}
reset(F);
{$I+}
 if IOresult = 0 then
  while not eof(F) do
   begin
   read(F,v);
   write(v,' ');
   end;
end;
 
 
Begin
clrscr;
 
pos:=0;
 
Assign(F,' ');
{$I-}
rewrite(F);
{$I+}
 
 if IOresult = 0 then
   for i:= -2000 to 5000 do
       begin
       write(F,i);
       inc(pos);
        if i > 0 then
         pos:=2001;
       end;
 
{vivod;}
reset(F);
 
 
 if IOresult = 0 then{поиск первого положительного}
 while not eof(F) do
  begin
    read(F,u);
     if u > 0 then
      begin
       P:=u;
       seek(F,0);{поиск первого отрицательного}
       read(F,O);
       seek(F,pos);{poisk pervogo polojitelinogo}
       read(F,P);
       seek(F,0);{obmen}
       write(F,P);
       seek(F,pos);
       write(F,O);
       break;
      end;
  end;
 
writeln;
write('Proverka vvediti nomer elementa dlea vivoda: ');
while not eof(F) do
 begin
 readln(O);
 seek(F,O);
 read(F,P);
 write(P);
 break;
 end;
 
close(F);
 
readkey;
end.