Срочно! Задача в Pascal

Uses crt; var x,y,k: integer; begin k: =0; write ('Введите число: '); readln (x); write ('Введите основание системы счисления: '); readln (y); while x>0 do begin if x mod 10=y then inc (k); x: =x div 10; end; if k>0 then writeln ('Такого числа в этой системе не существует') else writeln ('Такое число существует в данной системе счисления'); end.