В заданном интервале найти все числа, которые делятся на каждую из своих чётных цифр

const n=20;
var A:array [1..n] of integer;
N1, N2:integer;
i, kol:integer;
procedure Chisl(x:integer; var y:integer);
var d,b,c,k:integer;
begin
k:=0; //количество цифр, на которое делится
b:=0; //общее количество цифр
while x>0 do
b:=b+1; // считаем цифры
d:=x mod 10; // очередная цифра с конца
if (d<>0) and (d mod 2=0)and (x mod d=0) then k:=k+1;
if c=k then y:=k;
x:=x div 10;
end;
 
 
begin
writeln ('Введите начальное значение интервала');
readln(N1);
writeln('Введите конечное значение интервала');
readln(N2);
randomize;
for i:= 1 to n do
    a[i]:=random(N2-N1+1)+1; 
writeln('Сформирован массив:');
 for i:=1 to n do write(a[i]:7);
 writeln (' ');
 for i:=1 to n do 
  begin
  Chisl(a[i],kol);
  writeln ('Число',a[i],'кол',kol);
  end;
end.

procedure Chisl(x:integer);
var d,b,c,k:integer;
begin
d:=abs(x);//числа могут быть и отрицательными
if not odd(d) and(d<>0) then //если четное и не 0, проверяем
 begin
  k:=0; //количество всех четных цифр
  b:=0;//на которые делится
  while d>0 do
   begin
    c:=d mod 10;
    if not odd(c)then //если цифра четная
     begin
      inc(k);//+1 четная цифра
      if (c<>0) and(x mod c=0)then inc(b);
     end;
    d:=d div 10;
   end;
  if k=b then //если делится на все четные цифры
  writeln(x, ':',k);
 end;
end;
var n1,n2,i,k:integer;
begin
writeln ('Введите начальное значение интервала n1=');
readln(n1);
repeat
writeln('Введите конечное значение интервала n2>',n1,' n2=');
readln(n2);
until n2>n1;
for i:=n1 to n2 do
Chisl(i)
end.