на языке Паскаль ввести 4 числа и вывести большее из них

С циклом for для натуральных чисел: 
var a, i, max:integer;
begin
max:=0;
writeln ('Введите натуральное число');
for i:=1 to 4 do
begin
readln (a);
if (a>max) then max:=a;
end;
writeln ('Максимальное число ', max);
end.