Const n=10;
var a:array[1..n] of real;
i:integer;
b:boolean;
begin
Randomize;
for i:=1 to n do
 begin
 a[i]:=10*random;
 write(a[i]:5:1);
 end;
writeln;
b:=true;
for i:=1 to n-1 do
 if a[i]>=a[i+1] then b:=false;
if b 
 then writeln('Последовательность возрастающая') 
 else writeln('Последовательность не возрастающая');
end.

Пример:
  5.3  1.4  0.2  6.1  5.7  0.8  3.4  6.2  6.2  8.4
Последовательность не возрастающая