Составьте программу поиска наибольшего из четырех чисел с использованием подпрограммы поиска большего из двух - PascalABC.NET

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

Задача: "Составьте программу поиска наибольшего из четырех чисел с использованием подпрограммы поиска большего из двух. Рассмотрите использование процедур и функций." Тут, я понимаю, рекурсией нужно делать? Или как? Разбить как-то по парам числа, из каждой пары выбрать наибольшее и потом их сравнить?

procedure hren(a,b,c,d:integer);

Как их можно разбить по парам и при при втором вызове процедуры выбрать вторую пару? Или я вообще не так мыслю?

Решение задачи: «Составьте программу поиска наибольшего из четырех чисел с использованием подпрограммы поиска большего из двух»

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

Function Compare(a,b:longword):longword;
var max:longword;
begin
if a>b 
then max:=a;
else max:=b;
Compare:=max;
end
{Основная программа}
begin
read(a,b,c,d);
if Compare(a,b)>Compare(c,d)
then write(Compare(a,b));
else write(Compare(c,d))
end.

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

В функции Compare происходит поиск большего из двух чисел a и b с помощью условного оператора if-then и присваивается переменной max.
Переменная max используется в качестве результата работы функции Compare и возвращается в основную программу.
В основной программе считываются четыре числа a, b, c, d.
С помощью условного оператора if-then проверяется, какое из чисел a и b больше, и если это так, то выводится на экран значение переменной max.
В противном случае выводится на экран значение переменной max, которая была получена в результате сравнения чисел c и d.