Поиск из файла (линейный)

program Sozdanie_Faila;
var f:file of integer;
    a,i:integer;
    razmer:1..10000;
begin
     randomize;
     write('Введите кол-во чисел в файле: ');
     readln(razmer);
     assign(f,'fail_for_sort.dat');
     rewrite(f);
     for i:=1 to razmer do
         begin
              a:=random(65535)-32767;
              write(f,a)
         end;
     close(f)
end.

program Poisk_Chisla_Iz_Faila;
 var 
    f:file of integer;
    chislo,a,i,p:integer;
begin      
   write('Vvedite tseloe chislo dya poiska v fayle: ');
   readln(chislo);
   assign(f,'fail_for_sort.dat');
   reset(f);
   p:=0;
   i:=1;
   while not eof(f) do      
   begin           
     read(f,a);
     if chislo=a then p:=i;
     i:=i+1;
   end;
   close(f);
   
   if p>0 then 
      writeln('Chislo',chislo,'  prisutstvuet v fayle na pozitsii ',i) 
   else 
      writeln('Net takogo chisla v fayle!');
 
end.

read(f,a)

i:=0;
while not eof(f) do      
   begin           
     read(f,a);
     i:=i+1; 
     if chislo=a then 
       begin
        writeln('Chislo',chislo,'  prisutstvuet v fayle na pozictii ',i);
        readln;
        close(f);
        exit;
       end;     
   end;
writeln('Net takogo chisla v fayle!');
readln;
close(f);
end.