Дан массив целых чисел. Определить количество промежутков, на которых он убывает

program n1;
const
n=10;
var
a :array[1..n] of integer;
i,k :integer;
begin
k:=0;
for i:=1 to n do
readln(a[i]);
for i:=2 to n do
if a[i] < a[i-1] then
k:=k+1;
writeln('Количество ',k);
end.

uses crt;
const nmax=100;
var a:array[1..nmax] of word;
    n,i,j,k,p:byte;
begin
clrscr;
randomize;
repeat
write('Размер масcива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=random(20);
  write(a[i],' ');
 end;
writeln;
writeln;
i:=2;p:=0;{начнем со второго элемента, промежутков пока нет}
while i<=n do
if a[i]<=a[i-1] then{если не больше предыдущего}
  begin
   j:=i;k:=0;p:=p+1;{начало промежутка}
   while (a[j]<=a[j-1])and(j<=n) do{пока идет убывание}
    begin
     j:=j+1;{идем вперед}
     k:=k+1;{считаем}
    end;
   i:=i+k+1;{перешагиваем через промежуток}
  end
else i:=i+1;{иначе идем вперед}
writeln('Количество интервалов убывания=',p);
readln
end.

uses crt;
var
ms : array [1..10] of integer;
a,b : integer;
f : boolean;
begin
clrscr;
randomize;
for a:=1 to 10 do begin
    ms[a]:=random(100);
    write(ms[a],' ');
end;
writeln;
a:=0;
while a<10 do begin
    inc(a);
    if (ms[a]>ms[a+1])and(a<10) then begin
       if f=false then inc(b);
       inc(a);
       f:=true;
    end
    else f:=false;
end;
write('Decreased ',b,' times');
readkey;
end.