Вводится целое положительное число. Отыскать сумму цифр и среднее арифметическое нечетных

program raf105;

var a,b,sum,nsum,nkol:integer;

sari:real;

begin

write('Введите число: ');

readln(a);

while alt;gt;0 do

begin

 b:= a mod 10;

 a:= (a-b) div 10;

 sum:= sum+b;

 if (b mod 2)lt;gt;0

   then  

   begin

     nsum:= nsum+b;

     nkol:= nkol+1;

   end;

end;

sari:= nsum/nkol;

writeln('Сумма всех цифр в числе: ',sum);

writeln('Среднее арифметическое нечётных цифр в числе: ',sari);

end.

Язык программирования PascalABC