Вводится последовательность из N целых чисел. является ли последовательность убывающей?

Var
a:array [1..100] of integer;
n,i,k,p:integer;
Begin
writeln(in put n);
readln(n);
for i:=1 to n do 
readln(a[i]);
 for i:=1 to n do 
 if a[i]>a[i+1] then k:=k+1; 
 if k=n then writeln(убывающая) 
else writeln(неубывающая);
End.
-------------------Не забудьте сказать спасибо-------------------