Найти max из (a, n, x, m) чисел

Var a, n, x, m, max: Integer;

begin

writeln ('Введите 1 число');

readln (a);

writeln ('Введите 2 число');

readln (n);

writeln ('Введите 3 число');

readln (x);

writeln ('Введите 4 число');

readln (m);

max:=a;

if max < n then max:=n;

if max < x then max:=x;

if max < m then max:=m;

writeln (max);

end.