Дана последовательность действительных чисел. Выяснить, будет ли она возрастающей Turbo Pascal

Var

a : array [1 ... 10] of integer;

i, j : integer;

f : boolean;

begin

f : = true;

for i : = 1 to 10 do readln (a) ;

for i : = 1 to 9 do

if a > a[i+1]

then

begin f : = false; break;

end

if f then writeln ('da') else writeln ('net') ;

readln;

end.