Тогда, например, так:
Код:
CONST
N=100;
VAR
A:ARRAY[1..N] of WORD;
i:INTEGER;
Num,p:BYTE;
b:Boolean;
BEGIN
RANDOMIZE;
For i:=1 to N do
begin
A[i]:=RANDOM(1000);
Write(A[i]:4);
end;
WriteLn;
Num:=0;
i:=1;
Repeat
b:=true;
p:=0;
Repeat
INC(i);
If A[i]<A[i-1] then
begin
b:=false;
p:=1;
end else b:=true;
Until b or (i=N);
If p=1 then INC(Num);
Until i=N;
WriteLn('The number od "falling" sections is ',Num);
ReadLn;
END.