Язык программирования паскаль. найти три минимальных цифры в числе.

 uses crt; var  a,min: integer;  n: longint; begin  clrscr;  min:=9;  write('Vvedite chislo:  ');  readln(n);  a:=n mod 10;  repeat   if a<min then min:=a;   a:=n mod 10;   n:=n div 10;  until n=0;  if a<min then min:=a;  write('minimalnaya zifra:  ',min);  readln end.