Написать программу обмена трёх переменных

Возможно имелось ввиду 2-х переменных, с использованием третей(если это не так, поправьте в комментариях):

begin

 var (a, b) := ReadInteger2('a,b->');

 var c := b;

 b := a; a := c;

 Println($'a={a}{NewLine}b={b}');

end.