Переведите пожалуйста на паскаль

Ну вроде так, если я верно разумею, надо ввести 5 чисел и отыскать максимальное?

program z4;

var max,n,i:integer;

begin

readln(n);

max:=n;

for i:=1 to 4 do

   begin

       readln(n);

       if ngt;max then max:=n;

   end;

writeln(max);  //если для тебя нужен вывод

end.