как найти наименьшую цифру в числе (паскаль)?

Var
   A:longint;
   Min:byte;
Begin
Min:=9;
Write('Введите целое число: ');
ReadLn(A);
A:=Abs(A);
While A > 0 do
   Begin
   if A mod 10 < Min then Min:=A mod 10;
   A:=A div 10;
   End;
WriteLn('Min = ',Min);
End.