Найти 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.