найти сумму нечетных цифр в заданном с клавиатуры числе.

var str : string;i,c,a,count : integer;begini:=1;count :=0;writeln('Вводите числа, как только введете все числа нажмите любую букву');while i=1 do beginreadln(str);val(str,a,c);if ( a mod 2 <>0) then count := count +a;if(c<>0) then i:=0;end;writeln('Сумма нечетных чисел  = ', count);end.