Проверить, являются ли числа в файле упорядоченными по возрастанию

uses crt;
type 
   input = integer;
var
    f: file of input ;
    c, i: integer;
    n_elements:integer;
    flag:boolean;
    e:array[1..100] of integer;
begin
    assign (f, 'input.dat');
    reset (f);
    i:=0;
   while not(eof(f)) do  
   begin
        inc(i);
        readln(f, e[i]);
    end;
    n_elements:=i;
    i:=1;
    flag:=true;
    while (flag) and (i< n_elements) do
    begin
        flag:= e[i]<e[i+1];
        inc(i);
    end;
    Writeln(flag);
    readln;
    readln
end.

const
    ans: Array[Boolean] Of String[11] = ('Not ordered', 'Ordered');
var
    state: Boolean;
    f: File Of Integer;
    fi1, fi2: Integer;
begin
    Assign(f, 'input.dat'); ReSet(f);
    state := True;
    if (FileSize(f) > 2)
    then
    begin
        Read(f, fi1);
        while ((Not EoF(f)) And (state)) do
        begin
            Read(f, fi2);
            state := fi1 < fi2;
            fi1 := fi2;
        end;
    end;
    Close(f);
    WriteLn(ans[state]);
end.

    if FileSize(f) > 1