без массива последовательность [Паскаль]

[syrga]

нужно решить задачу без массивов:
Даны натуральное n и последовательность а1,а2…а n вещественных чисел. Определить образуют ли они возрастающую последовательность.

[Mad_Cat]

readln(a);
for i:=1 to n do begin
readln(b);
if a>b then break;
a:=b;
end;
if a>b then writeln('NOT') 
else writeln('YES');

[Prisioner]

только вместо ">" следует использовать ">=" (т.к. последовательность возрастающая, а не неубывающая)