Дано произвольное трехзначное число. Надо из цифр этого числа составить и напечатать наименьшее — Pascal(Паскаль)

Пример дано число 497. Ответ 479.

uses crt;
var a,b,c,s,p,q,y,x:integer;
begin
repeat
write('Введите трехзначное число s=');
readln(s);
until (s>99)and(s<=999);
a:=s div 100;
b:=s div 10 mod 10;
c:=s mod 10;
if a<b then p:=a else p:=b;
if c<p then p:=c;
if a>b then y:=a else y:=b;
if c>y then y:=c;
q:=a+b+c-p-y;
x:=100*p+10*q+y;
writeln ('наименьшее число =',x);
end.