Описать процедуру Swap - Pascal

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

нужна помощь!!! Вот условие: Описать процедуру Swap(X, Y), меняющую содержимое переменных X и Y (X и Y — вещественные параметры, являющиеся одновременно входными и выходными). С ее помощью для данных переменных A, B, C, D последовательно поменять содержимое следующих пар: A и B, C и D, B и C и вывести новые значения A, B, C, D.

Решение задачи: «Описать процедуру Swap»

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

uses 
  crt;
procedure Swap(var a,b:integer);
begin
  a:=a-b;
  b:=b+a;
  a:=b-a;
end;
 
procedure Swap2(var a,b:integer);
begin
  a:=a xor b;
  b:=b xor a;
  a:=a xor b;
end;
 
var 
  a,b,c,d:integer;
begin
  clrscr;
  writeln('Введите 4 целых числа:');
  readln(a,b,c,d);
  writeln('Новые значения чисел:');
  Swap(a,b);
  Swap2(c,d);
  Swap(b,c);
  writeln('a=',a,'  b=',b,'  c=',c,  '  d=',d);
  readln
end.

Объяснение кода листинга программы

В начале кода подключается библиотека crt, которая необходима для работы с функциями ввода-вывода в языке Pascal.
Затем определяется процедура Swap, которая принимает два аргумента типа integer. Внутри процедуры значения этих аргументов изменяются согласно правилам обмена.
Далее определена процедура Swap2, которая также принимает два аргумента типа integer. Внутри процедуры значения этих аргументов изменяются с использованием операции побитового исключающего ИЛИ.
Затем объявлены четыре переменные типа integer: a, b, c и d.
После этого происходит инициализация переменных: вводится четыре целых числа с помощью функции readln.
Затем выполняется первая операция обмена значениями переменных a и b с помощью процедуры Swap.
После этого выполняется вторая операция обмена значениями переменных c и d с помощью процедуры Swap2.
Затем выполняется третья операция обмена значениями переменных b и c с помощью процедуры Swap.
Наконец, выводятся новые значения переменных a, b, c и d с помощью функции writeeln.
Конец программы.