Вводится последовательность из 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. -------------------Не забудьте сказать спасибо-------------------