Вывести наибольшую цепочку.

uses crt;
const nmax=100;
function Step5(n:integer):boolean;
var a:integer;
begin
a:=5;
while a<n do
a:=a*5; {умножаем на пять пока меньше}
if (a=n)or(n=1) then Step5:=true{если попали в число, или это 1=5^0}
else Step5:=false;
end;
var a:array[1..nmax] of integer;
      i,n,k,p1,p2,max: integer;
begin
clrscr;
repeat
write('Размер массива до ',nmax,' n=');readln (n);
until n in [1..nmax];
writeln('Vvedite ',n,' elementov massiva');
for i:=1 to n do
readln (a[i]);
{Поиск позиции и длины максимальной цепи}
k:=0; max:=0; {Первоначальные значения}
for i:=1 to n do
if Step5(a[i]) then inc (k) {Если степень 5 - наращиваем счётчик}
else {Иначе}
  begin {Если счётчик перерос максимальный - перезапоминаем его и позицию}
   if k>max then
      begin
        max:= k;
        p2:=i-1;
        p1:=p2-k+1;
        k:=0;  {Снова включаем счётчик}
      end;
  end;
writeln; {Выводим результат}
writeln('Максимальная длина=',max);
writeln('Начало-',p1,' конец-',p2);
writeln;
for i:=p1 to p2 do
write (a[i],' ');
readln
end.