Создайте программу для подсчёта числа нечётных чисел, используемых в записи введенного числа M -Pascal(Паскаль)

var m:string;
    i,k:integer;
begin
writeln('Введите число');
readln(m);
k:=0;
for i:=1 to length(m) do
if (ord(m[i]) mod 2)=1 then inc(k);
writeln(k);
readln;
end.