Задача в паскале. Ввести натуральное число N. Проверить, расположены ли его цифры…

Uses crt; vari,a,s,min: integer; beginwrite ('vvedite 4islo: '); read (a); s: =0; min: =a mod 10; while a>=1 dobegini: =a mod 10; a: =a div 10; if i>min thens: =s+1; end; if s>0 thenwrite ('ne verno') elsewrite ('4islo zapisano verno'); read; end. Так пойдет?