Опишите на языке программирования паскаль алгоритм подсчета максимального количества подряд идущих элементов каждый из которых меньше или равен предыдущему, в целочисленном массиве длины 30​

Первая:
program qwer;
uses crt;
var i, kol : integer;
Begin
kol := 10;
for i := 10 downto 1 do
begin
writeln(kol,' поросят пошли купаться в море.');
writeln(kol,' поросят пошли купаться в море.');
writeln(kol,' поросят резвились на просторе.');
writeln(kol,' Один из них утоп – его сложили в гроб,');
kol := kol - 1;
writeln('И вот вам результат – ',kol,' поросят…');
end;
End.
Вторая: 
program qwer;
uses crt;
var i, pr, n : integer;
Begin
readln(n);
pr := 1;
for i := 1 to n do
pr := pr * i;
write(pr);
End.
Третья:
program qwer;
uses crt;
var s, i : integer;
Begin
s := 115;
for i := 1 to 9 do
writeln(i * 100,'г = ',i * 100 * s / 1000,'руб');
End.
Готово!

Var s1,s2:string;
begin;
writeln('Введите исходные знаки');
readln(s1);
readln(s2);
if ((s1<>'-') and (s1<>'+')) or ((s2<>'-') and (s2<>'+')) then
begin;
writeln('Ошибка');
exit;
end;
if ((s1='+') and (s2='+')) or ((s1='-') and (s2='-')) then writeln('+') else writeln('-');
end.

С числами:
var a,b:integer;
begin;
writeln('Делимое:');
readln(a);
writeln('Делитель');
readln(b);
if b=0 then
begin;
writeln('Нельзя делить на ноль. Если это, конечно, не JavaScript.');
exit;
end;
if a=0 then
begin;
writeln('0');
exit;
end;
if ((a>0) and (b>0)) or ((a<0) and (b<0)) then writeln('+') else writeln('-');
end.