найти наибольшее из четырех, введенных с клавиатуры чисел(Паскаль)​

program raf105;

var a, max1,i: integer;

begin

writeln('Вводите числа по очереди');

max1:= -10000;

for i:=1 to 4 do

begin

 readln(a);

 if a>max1

   then max1:= a;

end;

writeln('Наибольшее: ',max1);

end.