Имеется список учащихся класса с указанием роста каждого из них. Выяснить, перечислены ли ученики в списке в порядке убывания их роста.

// PascalABC.NET 3.0, сборка 1076const  nn=40; { максимально возможное количество учеников }var  r:array[1..nn] of byte;  i,n:byte;begin  Write('Количество учеников в классе: '); Read(n);  Writeln('Вводите через пробел или Enter рост');  for i:=1 to n do Read(r[i]);  { собственно анализ введенных данных }  i:=1;  while i<n do    if r[i]<=r[i+1] then break    else Inc(i);  if i=n then Writeln('Порядок убывания роста соблюдается')  else Writeln('Порядок убывания роста не соблюдается')end.