Программа Паскаль

Пользователь вводит число. Сколько раз из цифр числа можно составить число 23 - столько раз вывести "выведено число 23"

Program qq;

var a, count2, count3: integer;

begin

writeln ('Введите число') ;

readln (a) ;

count2:=0;

count3:=0;

while a>0 do

begin

if a mod 10 = 2 then

count2:=count2+1;

if a mod 10 = 3 then

count3:=count3+1;

a:=a div 10;

end;

if count2>count3 then

a:=count3

else

if count3>count2 then

a:=count2

else

a:=count2;

if a0 then

while a>0 do

begin

writeln ('Выведено число 23') ;

a:=a-1;

end

else

writeln ('Нельзя получить число 23 из цифр введённого числа') ;

end.