Find the greater of four numbers in Pascal (make a program)

a, b, c, d: integer;

function max (a, b: integer): integer;
if a> b then max: = a
else max: = b;

write (‘Enter the first number:’); readln (a);
write (‘Enter the second number:’); readln (b);
write (‘Enter the third number:’); readln (c);
write (‘Enter the fourth number:’); readln (d);
writeln (‘The largest number among those entered:’, max (max (a, b), max (c, d)));

One of the components of a person's success in our time is receiving modern high-quality education, mastering the knowledge, skills and abilities necessary for life in society. A person today needs to study almost all his life, mastering everything new and new, acquiring the necessary professional qualities.