массив из степеней 5, помогите исправить Опции

[Athen]

Такая задача: Даны натуральное число n, целые числа a1,…,an. Рассмотреть отрезки последовательности a1,…,an (последовательности идущих подряд членов), состоящие из степеней пятерки. Получить наибольшую из длин рассматриваемых отрезков.

Program zadacha2;
Uses crt;
function stepen(b,n:integer):longint;
var
   S:longint;
   i:integer;
begin
   S:=1;
   for i:=1 to n do
   S:=S*b;
   stepen:=S;
end;
Var i,n,m,c,max:integer;
    a:array [1..10] of longint;
Begin
Clrscr; max:=0; c:=1;
for i:=1 to 10 do begin
writeln('Vvedite a[i]');
readln(a[i]);
writeln('a[',i,']=',a[i]);
for n:=1 to 10 do begin
if a[i]=stepen(5,n) then
for m:=1 to 10 do begin
if a[i-1]=stepen(5,m) then c:=c+1;
if c>max then max:=c;end;end;end;
writeln('naibolshij otrezok =',max);
readln;
End.

Загвоздка в том, что прога считает ВСЕ элементы из степеней 5.
Помогите исправить пожалуста! Заранее огромное спасибо!