Написать программу на нахождению большего из 4 чисел с использованием функции — Pascal(Паскаль)

var a,b,c,d:longint;
 
function max(a,b:longint):longint;
begin
 if a>b then max:=a else max:=b;
end;
 
begin
 write('A B C D -> ');
 readln(a,b,c,d);
 writeln('MAX = ',max(max(a,b),max(c,d)) );
 readln;
end.