Паскаль найти максимальный элемент из 30 целых чисел которые вводятся постоянно

const n=30;

var max,i,x:integer;

begin

max:=-MaxInt;

for i:=1 to n do begin

  readln(x);

  if x>max then max:=x;

end;

writeln(max);

end.

Program Znanija;
var readd, i, maxx: Integer;
begin
read(readd);
maxx:=readd;
for i:=0 to 29 do
begin
read(readd);
if readd > maxx then
maxx :=readd;
end;
write('Max element is ', maxx);
end.