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

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 beginwrite ( \'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.