задача одномерный массив

[iri6k@123]

Помогите пожалуйсто решить задачу в Delphi
Дан одномерный числовой массив. Вывести на экран последовательность из чисел одного знака, имеющую наибольшую длину.
Например: -1 1 0 -4 1 2 -4 -8 -16
Ответ -4 -8 -16

[Stilet]

s:='';smax:='';
for i:=2 to n do begin
 if (a[i]*a[i-1])<0 then s:=s+' '+IntToStr(a[i])
 else begin
   if length(smax)<length(s) then smax:=s;
   s:='';
 end;
end;
write(smax);

Где s, smax - строки
a[n] - массив

Не проверял но с потолка, думаю сложилось норм.

[Stilet]

s:='';smax:='';
for i:=2 to n do begin
 if (a[i]*a[i-1])<0 then s:=s+' '+IntToStr(a[i])
 else begin
   if length(smax)<length(s) then smax:=s;
   s:='';
 end;
end;
write(smax);

Где s, smax - строки
a[n] - массив

Не проверял но с потолка, думаю сложилось норм.