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

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.