Последовательно ввести n целых чисел. Найти максимальное из них

program GreeNice;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  System.SysUtils;
 
var i,n,max:integer;
  mass: array of integer;
begin
  write('Введите количество чисел: ');
  read(n);
  SetLength(mass,n);
  writeln;
  for i := 1 to n do
  begin
    write('Введите ',i,'е число: ');
    readln(mass[i]);
  end;
  max := mass[1];
  for i := 1 to n do
    if max < mass[i] then max := mass[i];
  writeln('Максимальное число: ',max);
  readln;
  readln;
end.

var
  Form1: TForm1;
  n,i,max:integer;   //глобальные переменные
................................................................             
procedure TForm1.Button1Click(Sender: TObject);
begin
n:=strtoint(Edit1.Text);//вводим в 1 поле n, нажимаем кнопку 1
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var a:integer;
begin
a:=strtoint(Edit2.Text);//вводим в поле 2 числа, нажимаем кнопку 2
inc(i);
Edit3.Text:=Edit3.Text+' '+inttostr(a);
if i=1 then max:=a else if a>max then max:=a;
Edit2.Clear;
Edit2.SetFocus;
if i=n then Edit4.Text:='Максимальный элемент='+inttostr(max);//если ввели все
end;