Вводится 2-х значное число определить сколько дестятков и едениц программа в паскале

Var
   A:byte;
Begin
Write('Введите двузначное число: ');ReadLn(A);
WriteLn('Количество десятков в нём: ',A div 10);
WriteLn('Количество единиц в нём: ',A mod 10);
End.