Срочно помогите решить!ЗАДАЧА PASCAL ABC


Кот Матроскин записал сумму денег вырученных за продажу молока.
Пёс Шарик, назло вечно поучающему его коту, в этой записи заменил
все чётные цифры, уменьшив их на 2(только 0 заменял на 8),не трогая
нечётные цифры. Помогите Матроскину восстановить первоначальную
запись. Ввод корректен (ни одно число не начинается с 8).

// PasaclABC.Net 3.0, сборка 1052const  c0=Ord('0');var  ns,d:integer;  s:string;begin  Write('Введите сумму, записанную Шариком: '); Read(ns);  s:='';  while ns>0 do begin    d:=ns mod 10;    if Odd(d) then s:=Chr(d+c0)+s    else      if d<>8 then s:=Chr(d+2+c0)+s      else s:='0'+s;    ns:=ns div 10  end;  Write('Сумма, записанная Матроскиным: ',s)end.Тестовое решение:Введите сумму, записанную Шариком: 14258Сумма, записанная Матроскиным: 16450