Посчитать элементы которые собой предстваляют убывающую последовательность

const n=1000; //ïîñëåäîâàòåëüíîñòü èç 1000 ýëåìåíòîâ
var a1:array [1..n] of integer;
    a, i, j : integer;
 
BEGIN
 
randomize;
for i:=1 to n do begin
    a1[i]:= random(99)+1;  // ýëåìåíòû îò 99 äî 1
    //writeln(a1[i]);
    end;
    
j :=1;
a := 100;
writeln(a,' - âåðõåå ÷èñëî ïîñëåäîâàòåëüíîñòè');
for i:=1 to n do begin
    if a1[i] = a-1
    then begin a:=a-1;
    j:=j+1; end;
    end;
writeln(a,' - íèæíåå ÷èñëî ïîñëåäîâàòåëüíîñòè');
writeln(j,' - êîëè÷åñòâî ÷èñåë â ïîñëåäîâàòåëüíîñòè');
writeln;
END.

const n=10;
      M=10;
var a:array [1..N,1..M] of integer;
    t, b, a1, a2,  i, j, k : integer;
 
BEGIN
 
randomize;
for i:=1 to n do
    for j:=1 to m do
    a[i,j]:= random(99)+1; // ìàòðèöà 10 íà 10
    
a2:=11;                     //äëÿ ïðèìåðà òðåì ñòðîêàì ïðèñâàèâàåì
for j:=1 to m do begin          //òàêèå çíà÷åíèÿ, ÷òîáû áûëè óáûâ.
    a[3,j]:=a2-1;           //ïîñëåäîâàòåëüíîñòè
    a2:=a2-1;
    end;
    
a2:=21;
for j:=1 to m do  begin
    a[5,j]:=a2-1;
    a2:=a2-1;
    end;
    
a2:=71;
for j:=1 to m do begin
    a[7,j]:=a2-1;
    a2:=a2-1;
    end;
 
k :=0;
 
for i:=1 to n do begin
    a1:=a[i,1];
    for j:=1 to m do begin
    if (a[i,j] = a1)
    then begin
    a1:=a1-1;
    b:=i;
    t:=1;
    end else
    t:=0;
    end;
    if t=1 then begin k:=k+1;
    writeln(b,' -ñòðîêà- óáûâàþùàÿ ïîñëåäîâàòåëüíîñòü')end;
    t:=0;
end;
 
writeln(k,' - êîëè÷åñòâî ñòðîê, êîòîðûå ïðåäñòàâëÿþò ñîáîé óáûûâàþùóþ ïîñëåäîâàòåëüíîñòü');
 
END.