Дано натуральное число: найти количество цифр данного числа, больших А (А вводится с клавиатуры); верно ли, что данное число принадлежит промежутку от А до В и кратно 3, 4 и 5 (А и В вводятся с клавиатуры — Pascal(Паскаль)

uses CRT;
VAR
 Num, A, B, C: LongInt;
 S: String;
 count, code: Integer;
 ch: Char;
BEGIN
 Write('Введите целое число: '); ReadLn(Num);
 Write('Введите одну цифру: ');
 repeat
   ch:= ReadKey;
   VAL(ch, A, code);
 until code = 0;
 WriteLn;
 B := Num; {копия числа. А пока не нужно}
 count:=0;
 while B <> 0 do begin
   if B mod 10 > A then count:= count + 1;
   B := B div 10;
 end;
 if count = 0 then
  WriteLn('В числе ',Num,' цифр больше ', A, ' нет ')
 else
  WriteLn('В числе ',Num,' цифр больше ', A, ' вот сколько: ', count);
 WriteLn('=== Определение принадлежности диапазону ===');
 Write('Введите число A: '); ReadLn(A);
 Write('Введите число B: '); ReadLn(B);
 if A > B then begin C:=A; A:=B; B:=C end;
 Write('Вывод о принадлежности числа ',Num,' диапазону [',
   A,', ',B,'] и кратности 3, 4, 5: ');
 WriteLn( (Num >= A) and (Num <= B) and
   (Num mod 3 = 0) and (Num mod 4 = 0) and (Num mod 5 = 0));

END.