Организуйте заполнение типизированного файла случайными целыми числами из интервала

uses crt;
var f:file of integer;
    i,a,n,idxi,idxj,b,tmp:integer;
begin
 clrscr;
  assign(f,'f.txt');
   rewrite(f);
  write('Ââåäèòå êîë-ñòâî êîìïîíåíòîâà ôàéëà n=');
   readln(n);
  for i:=1 to n do
   begin
    a:=-100+random(200);
     write(f,a);
   end;
  seek(f,0);
   writeln('Ñîäåðåæàíèå ôàéëà :');
    while not eof(f) do
     begin
      read(f,a);
       write(a:4);
     end;
  writeln;
   seek(f,0);
    for i:=0 to filesize(f)-1 do
     begin
      seek(f,i);
       read(f,a);
        if a>0 then
         begin
          idxi:=i;
          break;
         end;
     end;
    seek(f,0);
     for i:=0  to filesize(f)-1 do
      begin
       seek(f,i);
        read(f,b);
         if b>0 then
          idxj:=i;
      end;
    writeln('Ïåðâûé ïîëîæèòåëüíûé i=',idxi,' , ïîñëåäíèé ïîëîæèòåëüíûé i=',idxj);
   seek(f,0);
    for i:=0 to filesize(f)-1 do
     begin
      seek(f,idxi);
       read(f,a);
      seek(f,idxj);
       read(f,b);
      seek(f,idxi);
       write(f,b);
      seek(f,idxj);
       write(f,a);
     end;
   seek(f,0);
    writeln('Ñîäåðæàíèå íîâîãî ôàéëà :');
     while not eof(f) do
      begin
       read(f,a);
        write(a:4);
      end;
    close(f);
 readkey;
end.

a:=-100+random(201);