С клавиатуры вводится целое положительное число. Вычислить сумму нечётных цифр.(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.