-Цитата от Трэй

не могу реальзовать нахождение само.
язык паскаль

Код:

const N = 10;
var
  m : array[1..N] of integer;
  i, num, max : integer;
begin
  num:= 0; max:= 0;
  writeln('Введите массив:');
  for i:= 1 to N do
    begin
      readln(m[i]);
      if (odd(m[i]) = false) OR (i = N) then
        begin
          if (num > max) then max:= num;
          num:= 0;
        end
      else
        inc(num); 
     end;

  writeln('Максимальная последовательность: ', max);
  readln;
end.