Написать программку, которая проверяет, представляют ли элементы введенного с клавиатуры массива

const n = 5;
var a : array of real;
k, i : integer;
x : real;
begin

cls;

setlength (a, n);
for i := 0 to n-1 do begin
write ( a[, i ,] = );
readln( a[ i ] );
if ( i gt; 0 ) and ( k = 0 ) and ( x gt; a[ i ] ) then k := 1;
x := a[ i ];
end;
if k = 1 then writeln ( Элементы данного массива не представляют собой подрастающую последовательность. )
else writeln ( Элементы данного массива представляют собой вырастающую последовательность. );
end.