Написать программу на языке паскаль " напишите программу поиска максимального из четырех чисел с использованием подпрограммы поиска большего из двух. "

Program n1;
var a,b,c,d: integer;
function max(a,b: integer): integer;
begin
if a>b then max:=a else max:=b;
end;
begin
readln(a,b,c,d);
if max(a,b)> max(c,d) then write(max(a,b)) else write(max(c,d));
end.