Описать процедуру Swap(X,Y), меняющую содержимое переменных X и Y - Free Pascal

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

Помогите решить 2)Описать процедуру Swap(X,Y), меняющую содержимое переменных X и Y (Х и Y- вещественные параметры,являющийся одновременно входными и выходными). С ее помощью для данных переменных А,В,С,D последовательно поменять содержимое следующих пар: А и В, С и D, В и С и вывести новые значения A,B,C,D.

Решение задачи: «Описать процедуру Swap(X,Y), меняющую содержимое переменных X и Y»

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

                            Var a,b,c,d:real;
Procedure Swap(Var X,Y:real);
Var t:real;
Begin
    t:=x;{В переменной t запомнили значение переменной x}
    x:=y;{В переменную x заносим значение переменной y}
    y:=t;{В переменную y заносим значение переменной t}
End;
Begin
    write('Введите A,B,C,D (через пробел): ');readln(A,B,C,D);
    Swap(A,B);Swap(C,D);Swap(B,C);
    writeln('A-',A:0:2,' | ','B-',B:0:2,' | ','C-',C:0:2,' | ','D-',D:0:2);
    readln;
End.
                        