Задача на разбор числа на цифры не могу решить

uses crt;
type chis=1..9999;{тип наших чисел}
function Summ(x:chis):word;{функция подсчета суммы}
var y,z:word;
    k:byte;
begin
z:=x;{запомним введенное число, мы его в ноль превратим}
y:=0; {второе число пока 0}
while x>0 do{пока первое число не ноль}
  begin
   k:=x mod 10;{отделяем последнюю цифру}
   if k mod 2<>0 then{если она нечетная}
   y:=y*10+k;{добавляем ее в конец числа, умноженного на 10}
   x:=x div 10;{берем число без последней цифры и все повторяем}
  end;
Summ:=z+y;{складываем исходное число и полученное}
end;
var A,B:chis;
    S,N,i:word;
begin
clrscr;
write('Количество тестов N=');
readln(N);
for i:=1 to n do
  begin
   repeat
   readln(A);{вводим число}
   until(A>=1)and(A<=9999);{проверяем соответствие диапазону}
   write('A=',A,'  ','S=',Summ(A));{выводим число и сумму}
  end;
readln
end.