Найти минимальное и максимальное из данных чисел - Pascal

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

Описать процедуру, записывающую в переменную X минимальное из значений X и Y, а в переменную Y — максимальное из этих значений. Используя четыре вызова этой процедуры, найти минимальное и максимальное из данных чисел A, B,C, D. Заранее спасибо.

Решение задачи: «Найти минимальное и максимальное из данных чисел»

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

procedure minmax(var x,y:real);
var t:real;
begin
  if y<x then begin t:=x;x:=y;y:=t;end;
end;
var
  a,b,c,d:real;
begin
  write('a,b,c,d=');readln(a,b,c,d);
  minmax(a,b);
  minmax(c,d);
  minmax(b,d);
  minmax(a,c);
  writeln('Min=',a:0:2);
  writeln('Max=',d:0:2);
end.

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

procedure minmax(var x,y:real);
- Название переменных: x, y, t
- Значения переменных: отсутствует
- Действия: Объявляется процедура minmax, которая принимает два параметра по ссылке типа real (вещественные числа).
var a,b,c,d:real;
- Название переменных: a, b, c, d
- Значения переменных: отсутствует
- Действия: Объявляются переменные типа real - a, b, c, и d.
write('a,b,c,d=');readln(a,b,c,d);
- Название переменных: не применимо
- Значения переменных: не применимо
- Действия: Выводится текст a,b,c,d= на экран, после чего программа ожидает ввод значений для переменных a, b, c и d.
minmax(a,b);
- Название переменных: a, b, t
- Значения переменных: a и b (передаются по ссылке)
- Действия: Вызывается процедура minmax для переменных a и b.
minmax(c,d);
- Название переменных: c, d, t
- Значения переменных: c и d (передаются по ссылке)
- Действия: Вызывается процедура minmax для переменных c и d.
minmax(b,d);
- Название переменных: b, d, t
- Значения переменных: b и d (передаются по ссылке)
- Действия: Вызывается процедура minmax для переменных b и d.
minmax(a,c);
- Название переменных: a, c, t
- Значения переменных: a и c (передаются по ссылке)
- Действия: Вызывается процедура minmax для переменных a и c.
writeln('Min=',a:0:2);
- Название переменных: a
- Значения переменных: a
- Действия: Выводится текст Min= и значение переменной a с точностью до 2 знаков после запятой.
writeln('Max=',d:0:2);
- Название переменных: d
- Значения переменных: d
- Действия: Выводится текст Max= и значение переменной d с точностью до 2 знаков после запятой. Процедура minmax сравнивает переданные переменные x и y. Если y меньше чем x, то значения переменных x и y меняются местами. После вызова процедур для всех пар переменных выводятся минимальное и максимальное из введенных чисел.