файл целых чисел.

[bunny]

233. Задано текстовий файл цілих чисел, визначити, чи є він упорядкованим по збільшенню.
никаких идей...всё в тумане, с файлами работать не умею..
начало вроде так
type
mas=array [0..9] of integer;
var
f: text i ;

begin
AssignFile(f,'text.txt');
reset(f);
for i=0 to 10 do
begin
readln(f,m[i]);
end;
close(f);

end.
но выдаёт ошибку на текст и в варе

[Serge_Bliznykov]

вопрос так стоит?

Задан текстовый файл целых чисел, определить, является ли он упорядоченным по увеличению.

Так... писать код самостоятельно будете?
Алгоритм очень простой.
Упорядоченный по увеличению - это значит, что каждый следующий элемент файла БОЛЬШЕ, чем предыдущий.
Если это условие нарушается - всё. файл не упорядочен.
Цикл чтения прерывается. сообщение и выход из программы.

Массивы тут никакие не нужны. Достаточно хранить одно предыдущее число.

читать числа из текстового файла можно таким кодом:

  var f : textfile;
    PredNumber, CurrentNumber : integer;
    isSorted : boolean;
...
begin
   AssignFile(f,'Chisla.txt');
   Reset(f);
   if eof(f) then begin
      CloseFile(f);
      WriteLn('Делать нечего - исходный файл пуст!');
      Halt(1); 
   end;
   Read(f, PredNumber);
   WriteLn('первое число в файле: ', PredNumber);

   isSorted := true; {считаем, что файл отсортирован}
   while (Not Eof(f)) and (isSorted) do begin
      Read(f, CurrentNumber);
      WriteLn('очередное число: ',CurrentNumber);

      тут условие проверки, сравнения чисел PredNumber и CurrentNumber
      если условие не выполняется то isSorted := false;
      
      {запомним считанное число, как предыдущее }
      PredNumber := CurrentNumber;
   end;
   CloseFile(f);

   if isSorted then WriteLn('Файл отсортирован.')
   else WriteLn('Файл не отсортирован.');
   Readln;   


end.

[bunny]

у меня преподаватель старый пень,велел делать через масив. сделала как в начале писала, но применила тоже потом булевскую функцию) и заработало))