Найти большее из четырёх чисел в Паскале (составить программку)

var
a, b, c, d: integer;

function max ( a, b: integer ): integer;
begin
if a gt; b then max := a
else max := b;
end;

begin
write ( Введите 1-ое число: ); readln (a);
write ( Введите 2-ое число: ); readln (b);
write ( Введите третье число: ); readln (c);
write ( Введите четвертое число: ); readln (d);
writeln ( Наибольшее число среди введённых: , max (max (a, b), max (c, d) ) );
end.