Даны 4 числа, найти наибольшее (паскаль)

program vld;

var

 a,b,c,d:integer;

function max(a,b:integer):integer;

begin

if a > b then max:=a

else max:=b;

end;

begin

 write('Введите первое число:');

 readln(a);

 write('Введите второе число:');

 readln(b);

 write('Введите третье число:');

 readln(c);

 write('Введите четвертое:');

 readln(d);

 writeln('Наибольшее из этих чисел имеет значение: ',max(max(a,b),max(c,d)));

end.