Вводятся размер вектора и его элементы. Вывести максимум из его элементов — Pascal(Паскаль)

var
  a: array[1..100] of integer;
  i, max, n: integer;
 
begin
  writeln('vvedite razmer vectora');
  readln(n);
  writeln('vvedite element');
  for i := 1 to n do
    read(a[i]);
  
  write('ishod');
  for i := 1 to n do
    write(a[i], ' ');
  
  max := a[1];
  for i := 2 to n do
  begin
    if a[i] > max then max := a[i];
  end;
  writeln('max=', max);
  readln;
  readln;
end.