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

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 > 0) and (k = 0) and (x > a[ i ]) then k : = 1;

x : = a[ i ];

end;

if k = 1 then writeln ('Элементы данного массива не представляют собой возрастающую последовательность.')

else writeln ('Элементы данного массива представляют собой возрастающую последовательность.');

end.