Вводится последовательность из N целых чисел. Определить, является ли она убывающей — Pascal(Паскаль)

uses crt;
var
a:array[1..100]of integer;
i,n,k:integer;
 
begin clrscr;
write('n=');
read(n);
k:=0;
 
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
 end;
writeln;
for i:=1 to n do
 if a[i]>a[i+1] then inc(k);
 
if k=n then writeln('DA') else writeln('NET');
readkey;
end.