Одномерные Массивы(delphi)

[Loony]

Помогите сделать для зачета надо

Дан одномерный массив А длиной М. Определить максимальное количество подряд идущих положительных элементов последовательности, не прерываемых ни нулями, ни отрицательными элементами. Вывести найденный фрагмент.

 

[gpatron]

for i:=1 to M do
begin
if a>0 then begin
if n1=0 then xi1:=i;
Inc(n1);
end;
if (a<1) or (i=M) then begin
if (n2<n1) then begin
xi2:=xi1;
n2:=n1;
end;

xi1:=0;
n1:=0;
end;

end;
for i:=xi2 to xi2+n2-1 do //вывод нужного куска массива ;