Решите пожалуйста первую задачу, очень срочно

uses crt;var s,i,n:integer;    a:array[1..100] of real;begin clrscr; randomize; readln(n); s:=0;  for i :=1 to n do      begin       a[i]:=(random(2000)-1000)/10;       write('a[',i,']=',a[i],'; ');         end; for i :=1 to n-1 do      begin             if a[i]>a[i+1] then s:=s+1;    end;   if s=n-1 then Writeln('Последовательность убывающая') else Writeln('Последовательность неубывающая')end.