Написати програму, що утворює із цифр тризначного числа найбільше тризначне число/написать программу, образует с цифр трехзначного числа больше трехзначное число

Var x,n,a,b,c,y:integer;
begin
readln(x);
a:=0;
b:=0;
c:=0:
while x>0 do
begin
n:=x mod 10;
if n>a then
begin
c:=b;
b:=a;
a:=n
end
else
if n>b then
begin
c:=b;
b:=n
end
else c:=n;
x:=x div 10
end;
y:=a*100+b*10+c;
writeln(y)
end.