Составить программу для определения максимального из четырех(целых) чисел,введен

Var a,i,max:integer; begin   max:=-MaxInt;   for i:=1 to 4 do begin     readln(a);     if a>max then max:=a;   end;   writeln('Максимальное ',max); end.