code:

uses crt;
var a,d: array [1..1000] of integer;
    i,n,j,max: integer;
begin
    clrscr;
    write('nhap so luong phan tu: ');
    readln(n);
    for i:=1 to n do 
    begin
        write('nhap so thu ',i,': '); readln(a[i]);
    end;
    j:=1;
    for i:=2 to n do
        begin
            if a[i-1]<=a[i] then d[j]:=d[j]+1;
            if a[i-1]>a[i] then 
                begin
                   j:=j+1;
                   d[j]:=d[j]+1;
                end;
        end;
    max:=d[1];
    for i:=2 to j do
        if d[i-1]<d[i] then max:=d[i];
    write('so phan tu cua doan khong giam dai nhat tim duoc la: ',max);
    readln;
end.

(kết quả ở dưới, bn kiểm tra với output dùm mk nha, chứ đề thiếu mất output r, mk ko dò đc)

uses crt;
var a,b: array [1..100] of integer;
i,j,n,m: integer;
begin
clrscr;
readln(n);

for i:=1 to n do 
read(a[i]);
j:=1;
for i:=2 to n do
begin
if a[i-1]<=a[i] then b[j]:=b[j]+1;
if a[i-1]>a[i] then 
begin
inc(j);
inc(b[j]);
end;
end;
m:=b[1];
for i:=2 to j do
if b[i-1]<b[i] then m:=b[i];
writeln (m);
readln;
end.