Паскаль. Решить через while. Найти все двузначные числа, которые делятся на n и содержат в себе цифру n

VarA,N,C:byte;B:boolean;BeginB:=false;Write('N = ');ReadLn(N);A:=10;While A<100 doBeginif A mod N = 0 then Begin C:=A; While C<>0 do  Begin  if C mod 10 = N then B:=true;  C:=C div 10  End; if B then Write(A,' '); B:=false End;A:=A+1EndEnd.