Найти наибольшую длину числовой последовательности - Turbo Pascal

Формулировка задачи:

Найти наибольшую длину числовой последовательности, состоящей из положительных элементов, в целочисленном массиве из 50 элементов

Решение задачи: «Найти наибольшую длину числовой последовательности»

Листинг программы

var arr:Array [0..49]of integer;
    i:integer;
    MaxPosLen:byte;
    max:byte;
    prom:byte;
begin
writeln('Array=');
randomize;
//eto sluchayny massyv dlya testa
for i:=0 to 49 do
  begin
  arr[i]:=random(5);
  write(arr[i],' ');
  end;
//eto bil sluchayny massyv dlya testa
max:=1;
prom:=1;
  for i:=1 to 49 do
  begin
   if arr[i-1]+1=arr[i] then
      prom:=prom+1
   else
     begin
     if prom>max then
        max:=prom;
        prom:=1;
     end;
  end;
   if prom>max then max:=prom;
MaxPosLen:=max;
writeln;
writeln;
writeln('MaxLen=',MaxPosLen);
readln;
end.

Объяснение кода листинга программы

В данном коде происходит следующее:

Создается массив arr, который будет содержать целые числа от 0 до 49.
Задаются три переменные: i, MaxPosLen и max. Переменная i будет использоваться для итерации по массиву, MaxPosLen - для хранения максимальной длины последовательности, а max - для хранения текущего максимума длины последовательности.
Выполняется цикл, в котором генерируются случайные числа от 0 до 5 для каждого элемента массива arr.
Внутри цикла проверяется, увеличилось ли значение переменной prom (количество элементов в последовательности) больше текущего значения max. Если да, то обновляется значение max.
После завершения внутреннего цикла проверяется, увеличилось ли значение переменной prom больше значения max. Если да, то обновляется значение max.
В конце выводится значение переменной MaxPosLen, которое является максимальной длиной последовательности. В общем, данный код находит максимальную длину числовой последовательности в массиве arr.