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

program calc;var a, sum, k, code: integer;//a — число, sum — сумма нечетных цифр, //k — позиция цифры в числе, code — сообщение об ошибке. s, s1: string; // s — строка из цифр и s1 — подстрока из цифры на позиции k. beginwriteln(\'Введите целое число\');read(a); //ввод числаstr(a, s); //преобр. числа в строкуsum:= 0; for i: integer:= 1 to length(s) dobegins1:= copy(s, i, 1); //выделение отдельной цифрыval(s1, k, Code); //преобразование цифры-строки в числоif k mod 2 = 1 then sum:= sum + k; //проверка на четность и суммирование нечетных цифрend;writeln(\'Сумма нечетных цифр равна \', sum)end.