Дано натуральное число:а)сколько чётных цифр в данном целом числе;б)верно ли, что в данном числе встречаются цифры А и В (А и В вводятся с клавиатуры) — Pascal(Паскаль)

uses CRT;
VAR
  src, A, B, k: Longint;
  nums: array[0..9] of Integer;
  even_count: Integer;
  isA, isB: Boolean;
  ch: Char;
BEGIN
repeat
 Write('Введите исходное целое число: ');
 {$I-} ReadLn(src); {$I+}
 k := IOResult;
 if k <> 0 then WriteLn('    Ошибка ввода! Попробуйте еще раз')
until k = 0;
 k:=src; {save}
 repeat
   inc(nums[k mod 10]);
   k := k div 10;
 until k = 0;
 for k:=0 to 9 do if nums[k] <> 0 then WriteLn(k:2,'   ',nums[k]);
 even_count := 0; {число четных}
 for k := 0 to 9 do
    if NOT odd(k) then inc(even_count, nums[k]);
 WriteLn('В числе ',src,' количество четных цифр = ',A);
 Write('Введите число A: ');
 repeat
    ch := ReadKey;
 until ch in ['0' ..'9'];
 WriteLn(ch);
 VAL(ch, A, even_count);
 Write('Введите число B: ');
 repeat
    ch := ReadKey;
 until ch in ['0' ..'9'];
 WriteLn(ch);
 VAL(ch, B, even_count);
 isA := nums[A] <> 0;
 isB := nums[B] <> 0;
 WriteLn('Насчет A: ',isA,', насчет B: ',isB);
END.