Matematické Fórum

Zdravím, mám problém s pascalem-konkrétně potřebuji sestavit program, kterému se zadá 10 čísel.
Z těchto deseti čísel má vypsat nejdelší souvislý lichý řetězec (počet lichých číslic v něm obsažených).

Př: Vstup: 1 2 3 1 1 1 2 3 3 2
Program vypíše 4
Nějak jsem to rozpracoval, ale dál si nevím rady

program lichy_retezec;
uses crt;
var  cislo, i, maximum, citac,  k  :integer;
begin
writeln ('zadej cislo');
readln (cislo);



if cislo mod 2 <>0 then
begin

citac:=citac+1;
maximum :=citac+1;
end;



for i:=1 to 10 do

begin
readln (cislo);
if cislo mod 2 <>0 then
        begin

citac:=citac+1;
writeln ('citac je' , citac);

        end
else citac:=0;




end;






  (*


if citac >maximum then maximum:=citac;

writeln ('nejdelsi  je ' , maximum);
readln;
       *)
      end.

Tou částí mezi (**) si nejsem jist, píše hlouposti. Právě proto sem píšu. Nevím, jak ošetřit průběžné ukládání čítače , který čítá obsah řetězce lichých čísel (při přerušení -sudé číslo-se vynuluje  a začne odznova). Čítač mi pouze vypisuje na obrazovku.
Díky za rady