Алгоритм по нахождению цепи в векторе.

[DarkWishMaster]

Вот такая задачка: составить процердуру которая будет искать в векторе A[1..100] самую длиную цепь из одного числа и показывать их позицию в векторе(первое и последнее число цепи)
Например n=10: ищем цепь из y:
x yyyy x y xxx - самая длиная цепь из 4 цифр, позиции 2 5.

[alex_fcsm]

В чем затруднения? Что уже получилось?

[DarkWishMaster]

Я не очень понимаю как правильно переменые ставить в процедуры, поэтому наверно и пишет Invalid procedure of function reference, но не в этом дело, мне главное алгоритм поиска цепи из "0" и как их позицию показать.

type a1=array[1..100] of integer;
var r:integer;
 procedure P(n:integer);
 var i,l,k:integer; 
 a:a1;
 begin
 writeln('Nr on array:');readln(n);
 for i:=1 to n do
 writeln('Data:');
 write('a[',i,']=');readln(a[i]);
 for i:=1 to n do begin
 if a[i]=0 then k:=k+1;
 if (a[i]<>0) and (l<k) then l:=k;
 k:=0;
 writeln(l);
 end; end;
begin
readln(r);
writeln(P(r)); readln;
end.

║ну тут как-бы он должен найти первый 0 и сложить к +1 и так пока не а[i] не будет равен нулю и если этот К будет больше вспомогательной переменой то l получит значения К и к будет равен нулю и дальше в векторе будет искать нули, и так пока не найдет самую большую цепь и l будет равно сколько 0 в цепи.

║

[alex_fcsm]

Массив должен заполняться в основной программе, а в процедуре(функции) должен осуществляться поиск