Задачка 10.Запросить трёхзначное число и сформировать новое, состоящее из тех же

Program n1;
var a: integer;
procedure sort (a,b,c: integer);
var t: real;
begin
if agt;b then
begin
a:=a+b;
b:=a-b;
a:=a-b;
end;
if bgt;c then
begin
b:=b+c;
c:=b-c;
b:=b-c;
end;
if agt;b then
begin
a:=a+b;
b:=a-b;
a:=a-b;
end;
t:=((c/100)+(b/10)+a)*100;
writeln('приобретенное число: ',t);
end;
begin
write('введите число: ');
readln(a);
sort(a div 100,a mod 10,round(((a mod 100)-(a mod 10))/10));
end.