Pascal ABC Дано целое положительное число определить сколько в-нём двоек и нулей в заданном числе

var a,k,n,m:integer;begin  writeln('Введите число');  readln(a);  m:=a; k:=0; n:=0;  while a<>0 do begin    if a mod 10=2 then k:=k+1    else if a mod 10=0 then n:=n+1;  a:=a div 10;  end;  writeln('В числе ',m,' ',k,' двоек и ',n,' нулей');  readlnend.