Дан файл целых чисел f. Определите, упорядоченные числа за ростом в файле f или нет?

uses crt;
var f:file of integer; //файл целых чисел
    a,k,max:integer;
    c:char;//символ окончания ввода
begin
clrscr;
assign(f,'chisla.dat');//поскольку файла у Вас видимо нет, создадим его
rewrite(f);//откроем для записи
writeln('Vvedite chisla v fail. Okonchanie vvoda Esc.');
repeat
readln(a);//читаем число
write(f,a);  //вводим в файл
c:=readkey; //окончение ввода-нажать Esc
until c=#27;
close(f);//закроем файл
clrscr;  //очистим экран
reset(f); //откроем файл для чтения
max:=-maxint-1;k:=0; //за макс возьмем самое маленькое из допустимых чисел
while not eof(f) do //пока не конец файла
   begin
     read(f,a);//читаем числа
     if a<max then //если число меньше предыдущего
       begin
        k:=1; //фиксируем
        break; //прекращаем чтение файла
       end
     else max:=a;//если больше или равно, запоминаем его как макс.
   end;
if k=0 then writeln('Chisla v fajle vozrastayut!')//если все не убывают
else writeln('Chisla v fajle ne uporiadocheny po vozrastanyu!');//иначе
close(f);
readln
end.

uses crt;
const n=20; //количество символов
var s:array[1..20] of char; //массив символов
    i,k:byte;
begin
clrscr;
Writeln('Massiv simvolov:');
repeat
for i:=1 to n do
read(s[i]); //вводим в строку символы
readln;
k:=0;
for i:=1 to n do  //проверяем чтобы была запятая
if s[i]=','then k:=1;
if k=0 then writeln('V massive net zapyatoj! Povtorite vvod.');
until k=1;
for i:=1 to n do
if s[i]=',' then //находим первую запятую
  begin
   writeln('Pervaya zapyataya nahoditsa na pozicii ',i);//выводим ее номер i
   break;//прекращаем поиск
  end;
readln
end.