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

program calc;

var a, sum, k, code: integer;

//a - число, sum - сумма нечетных цифр,

//k - позиция цифры в числе, code - сообщение об ошибке.

s, s1: string; / / s - строка из цифр и s1 - подстрока из цифры на позиции k.

begin

writeln ('Введите целое число');

read (a); / /ввод числа

str (a, s); / /преобр. числа в строку

sum: = 0;

for i: integer: = 1 to length (s) do

begin

s1: = copy (s, i, 1); / /выделение отдельной цифры

val (s1, k, Code); / /преобразование цифры-строки в число

if k mod 2 = 1 then sum: = sum + k; / /проверка на четность и суммирование нечетных цифр

end;

writeln ('Сумма нечетных цифр равна ', sum)

end.