Найти min(max(x, y), max(x, z), max(z, d)) - Pascal

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

Пожалуйста помогите написать программу на Паскале, так-как я в этом не силен прошу знающих людей помочь! Даны различные действительные числа x, y, z, d. Найти min(max(x, y), max(x, z), max(z, d)).

Решение задачи: «Найти min(max(x, y), max(x, z), max(z, d))»

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

function min(a, b: Integer): Integer; begin if b<a then min:=b else min:=a; end;
function max(a, b: Integer): Integer; begin if b>a then max:=b else max:=a; end;
var x, y, z, d: Integer;
begin
  Write('x y z d: '); ReadLn(x,y,z,d); WriteLn(min(min(max(x,y),max(x,z)),max(z,d)));
end.

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

Объявляются две функции:
- Название функции: min
  - Параметры: a, b
  - Возвращаемый тип: Integer
  - Тело функции: если b меньше a, то min = b, иначе min = a
- Название функции: max
  - Параметры: a, b
  - Возвращаемый тип: Integer
  - Тело функции: если b больше a, то max = b, иначе max = a
Объявляются четыре переменные:
- x, y, z, d типа Integer
Вводятся значения переменных x, y, z, d с помощью функции ReadLn
Выполняется вычисление и выводится результат:
- Вызывается функция max для x и y, далее результат передается в функцию min вместе с вызовом функции max для x и z, после чего результат снова передается в функцию max вместе с вызовом функции max для z и d.
- Полученный результат выводится с помощью функции WriteLn