Дано натуральное число найдите количество четных и нечетных цифр в нем. написать программу на паскале

Var
A,c,n:integer;
Begin
WriteLn('Введите натурально число');
Read(A);
c:=0;
n:=0;
While A>0 do
   Begin
   if (A mod 10) mod 2 = 0 then c:=c+1;
   if (A mod 10) mod 2 <> 0 then n:=n+1;
   A:=A div 10;
   End;
WriteLn('Кол-во чётных цифр: ',c);
WriteLn('Кол-во нечётных цифр: ',n);
End.