Составить программу нахождения большего из 4 чисел a,b,c,d с использованием функции поиска большего из двух — Pascal(Паскаль)

function Max(a,b: integer): integer;
begin
  if a > b then
    Max := a
  else
    Max := b;
end;
var
  a,b,c,d: integer;
begin
  WriteLn('Vvedite a,b,c,d...');
  ReadLn(a, b, c, d);
  WriteLn(Max(a, Max(b, Max(c, d))));
  ReadLn;
end.