Подскажите

uses
  crt;
function NumbVozr(F_Name : string):boolean;
var f : file of integer;
    a, b : integer;
begin
  assign(f,F_Name);
  Reset(f);
  read(f,a);
  while not eof(f) do begin
    read(f,b);
    If b<a then begin
      NumbVozr := false;
      exit;
    end;
    a := b;
  end;
  NumbVozr := true;
  close(f);
end;  
var
  f : file of integer;
  i, n : byte;
a : integer;  
begin
  clrscr;
  write('Введите количество элементов исходного файла : ');
  readln(n);
  assign(f,'File1.dat');
  rewrite(f);
  for i := 1 to n do begin
    write(i,'-oe 4islo : ');
    readln(a);
    write(f,a);
  end;
  close(f);
  writeln(NumbVozr('File1.dat'));  
  readln;
end.

if NumbVozr('File1.dat') then writeln('Числа в файле упорядочены по возрастанию') 
  else writeln('Числа в файле не упорядочены по возрастанию');

var
    f: file of integer;
    c: integer;
    
begin
    assign (f, 'input.txt');
    reset (f);
 
    while not eof (f) do begin
        read (f, c);
         write (c);
    end;
    close (f);
 
readln
end.

bol := true;
  for i := 1 to filesize(f)-2 do begin
    seek(f,i-1);
    read(f,a,b);
    If b<a then begin
      bol := false;
      break;
    end;  
  end;
  if bol then writeln('Числа в файле упорядочены по возрастанию') 
  else writeln('Числа в файле не упорядочены по возрастанию');