Вычислить, функции - Pascal ABC

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

Здравствуйте, требуется помощь с двумя заданиями, не очень силен в их понимании((Надеюсь на вашу помощь, спасибо.

Решение задачи: «Вычислить, функции»

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

function Min(const x, y: Real): Real;
var
    Result: Real;
begin
    if (x < y)
    then
        Result := x
    else
        Result := y;
    Min := Result;
end;
 
function Max(const x, y: Real): Real;
var
    Result: Real;
begin
    if (x > y)
    then
        Result := x
    else
        Result := y;
    Max := Result;
end;
 
var
    x, y: Real;
begin
    Write('x='); ReadLn(x);
    Write('y='); ReadLn(y);
    Write('z=');
    if (x < 0)
    then
        Write(Max(x, y):0:2)
    else
        Write(Min(x, y):0:2);
end.

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

Создается функция Min, которая принимает два аргумента типа Real и возвращает один аргумент типа Real. Внутри функции проверяется, является ли первый аргумент меньше второго. Если это так, то результатом будет первый аргумент, иначе - второй. Результат сохраняется в переменной Result, а затем присваивается переменной Min.
Создается функция Max, которая также принимает два аргумента типа Real и возвращает один аргумент типа Real. Внутри функции проверяется, является ли первый аргумент больше второго. Если это так, то результатом будет первый аргумент, иначе - второй. Результат сохраняется в переменной Result, а затем присваивается переменной Max.
Создается переменная x типа Real и инициализируется значением, которое было введено пользователем.
Создается переменная y типа Real и инициализируется значением, которое было введено пользователем.
Вызывается функция ReadLn, чтобы прочитать значение переменной x.
Вызывается функция ReadLn, чтобы прочитать значение переменной y.
Вычисляется значение переменной z. Если значение переменной x меньше нуля, то выводится максимальное значение из x и y, иначе выводится минимальное значение из x и y. Для этого вызывается функция Max или Min в зависимости от значения переменной x.
Конец программы.