Водномерном массиве а(10) найти наибольший элемент .решение в паскаль

Var
  a: array[1..10] of integer;
  i, max: integer;
begin
  for i := 1 to 10 do
  begin
    read(a[i]);
    if (i = 1) or (a[i] > max) then
      max := a[i];
  end;
  writeln('Max value = ', max)
end.