Дан одномерный массив из N целых чисел. Найти в массиве максимальную длинну последовательности из подряд идущих элементов

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

program length;

var a: array [1..20] of integer;max, max_i, min_i, k:integer;beginrandomize;writeln();for i:integer:= 1 to 20 do write(i:5);writeln();for i:integer:= 1 to 20 dobegina[i]:= (random(100) + 1);write(a[i] : 5)end;max:= 1;k:= 1;for i:integer:= 1 to 19 dobeginif a[i] <= a[i + 1] then k:= k + 1;if k > max thenbeginmax:= k;max_i:= i+1endelse k:= 1end;writeln();writeln(\' \'*((max_i - max)*5 + 2), \'▓\' * (max * 5 - 2));writeln(\'  Максимальная длина последовательности — \', max)end.