Последовательности delphi

[vrimen]

Помогите написать код на delphi7
Дана последовательность натуральных чисел, заканчивающаяся 0. Найти количество натуральных чисел, не превосходящих заданного числа N и делящихся на каждую из своих цифр.




Что исправить?

Var
	 CountN,
   COUNTL,
   countNmax,
   count:byte;
 b,	m,L,k,N:int64;
Begin
   l:=0;
  writeln(rus('Введите k'));readln(k);
	Read(N);
  if N<k then
  	while N<>0 do
  begin
	  CountN:=0;
	  While N<>0 do
	    Begin
	        Inc(countN);
	        N:=N div 10;
	    End;
      while N<>0 do
   begin
      m:=N;
      COUNTL:=0;
      while N<>0 do
       begin
        if (frac(N/b) = 0) then

        inc(COUNTL);
        b:= m mod 10;
        m:=m div 10;
      end
      end;
    if countN=COUNTL then
   inc(count);



  end;
	Writeln(count);
  readln; readln
End.