помогите с решением семестровой задачи

[Кирилл17]

дано 100 вещественных чисел. Определить образуют ли они возратающую последовательность. задачу нужно решить не через матрицы а через ЦИКЛИЧЕСКИЕ ПРОЦЕССЫ

[alex_fcsm]

var a:array[1..100] of real
     i:integer;
     flag:boolean;

begin
flag:=true;
for i:=1 to 100 do
 read(a[i]);
for i:=1 to 100
 if a[i-1]>a[i] then flag:=false;
if flag then writeln('Yes')
   else writeln('No');
end.