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

vara : array [1..10] of integer;i,j : integer;f : boolean;beginf := true;for i := 1 to 10 do readln(a);for i := 1 to 9 doif a > a[i+1]thenbegin f := false; break;endif f then writeln('da') else writeln('net');readln;end .