Определить количество чисел в наиболее длинной подпоследовательности из подряд идущих чисел одного знака

var
a:array[1..100] of integer;
begin
  var n:=0; var kol:=0; var max:=0;
  writeln('Введите последовательность:');
  repeat
    n+=1; a[n]:=ReadInteger;
  until a[n]=0;
  var i:=1;
  while i<>n do begin
    i+=1;
    if (a[i]>0) and (a[i-1]<0) then begin
      max:=kol; kol:=0; kol+=1;
    end else
    if (a[i]>0) then kol+=1;
    if (a[i]<0) and (a[i-1]>0) then begin
      max:=kol; kol:=0; kol+=1;
    end else
    if (a[i]<0) then kol+=1;
  end;
  if kol>max then max:=kol;
  writeln('Результат: ',max);
end.

var 
  v : integer;
  count, max : integer;
  prev : integer;
begin
  count := 0; max := 0;
  repeat
    v := ReadInteger;
    if (count = 0) or (prev * v > 0) then inc(count)
    else // знаки не совпадают
    begin
      if max < count then max := count;
      count := 1;
    end;
    prev := v;
  until v = 0;
  print('max = ', max)
end.