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

PascalABC:

var a:array of real;   
      k,i,n:integer;   
      x:real;
begin
write(Задайте размер массива = );readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
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.