Составить программу нахождения максимального элемента в массиве из 30 чисел

Ну и сюда скину. Вдруг не заметишь)
Эта автоматически тебе всё сделает.
Var i, n, max : Integer;
     a : array [1..30] of Integer;
 begin
    for i := 1 to 30 do
 begin
      Write(a[, i, ]=); 
      a[i]:=i+1;
      if max      writeln(a[i]);
end;
  writeln(Максимальный элемент равен: ,max);
end.

Если нужно будет ввести последовательность с клавиатуры, то вот:
Var i, n, max : Integer;
     a : array [1..30] of Integer;
 begin
    for i := 1 to 30 do
 begin
      Write(a[, i, ]=); 
      ReadLn (a[i]);
      if maxend;
  writeln(Максимальный элемент равен: ,max);
end.