Описать процедуру Minmax(x,y) записывающую в переменную Х минимальное из значений Х и Y, а в переменную Y – максимальное из этих значений. - Pascal

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

Описать процедуру Minmax(x,y) записывающую в переменную Х минимальное из значений Х и Y, а в переменную Y – максимальное из этих значений (X и Y- вещественные параметры, являющиеся одновременно входными и выходными) использовать четыре вызова этой процедуры, написать минимальное и максимальное из данных чисел A,B,C,D. кто нибудь понимает как это решать? если знаете, подскажите скажу спасибо огромное

Решение задачи: «Описать процедуру Minmax(x,y) записывающую в переменную Х минимальное из значений Х и Y, а в переменную Y – максимальное из этих значений.»

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

program pr1;
var a,b,c,d:real;
procedure Minmax(var x,y:real);
var cop:real;
begin
  if x>y then begin
               cop:=x;
               x:=y;
               y:=cop;
              end;
end;
begin
   readln(a,b,c,d);
   Minmax(a,b);//меняем местами a и b, если a>b
   Minmax(c,d);//меняем местами c и d, если c>d
   Minmax(b,d);//теперь из двух выберем максимум
   Minmax(a,c);//из двух выберем минимум
   writeln('Минимум- ',a);
   writeln('Максимум- ',d);
end.

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

Создается программа pr1, которая содержит переменные a, b, c и d типа real.
Создается процедура Minmax, которая принимает две переменные x и y типа real.
Внутри процедуры проверяется, больше ли значение x значения y. Если это так, то присваивается переменной cop значение x, а x и y меняются местами.
Код внутри процедуры не выполняется, если условие из пункта 3 не выполняется.
Программа читает значения a, b, c и d с помощью функции readln.
Вызывается процедура Minmax сначала для пары переменных a и b, затем для пары переменных c и d, и, наконец, для пары переменных b и d.
После всех вызовов процедуры Minmax выводятся на экран значения a и d с помощью функции writeln.