Упорядочить три числа в порядке неубывания - Free Pascal

Формулировка задачи:

Помогите пожалуйста с двумя задачками на FPC: 1)Дано три числа. Упорядочите их в порядке неубывания. Программа должна считывать три числа a, b, c, затем программа должна менять их значения так, чтобы стали выполнены условия a <= b <= c, затем программа выводит тройку a, b, c. Дополнительные ограничения: нельзя использовать дополнительные переменные (то есть единственной допустимой операцией присваивания является обмен значений двух переменных типа (a, b) = (b, a). 2)Дано число. Требуется поменять его цифры местами. Ведущие нули не выводить. Входные данные Вводится число. 10 ≤ n ≤ 99. Выходные данные Выведите число с изменёнными цифрами. (См. пример).

Решение задачи: «Упорядочить три числа в порядке неубывания»

textual
                            Листинг программы 
                        

                            var a,b,c:integer;
begin
 readln(a,b,c);
 if a>b then begin a:=a+b;b:=a-b;a:=a-b end;
 if b>c then begin b:=b+c;c:=b-c;b:=b-c end;
 if a>b then begin a:=a+b;b:=a-b;a:=a-b end;
 writeln(a,' ',b,' ',c);
 readln
end.
                        