Для массива x=(x1,) найти наибольший элемент массива.все элементы массива поделить на значение наибольшего элемента. )

Const
  n = 50;

var
  x: array[1..n] of real;
  max: real;
  i: integer;

begin
  Writeln('Введите ', n, ' элементов массива');
  max := -1e20; { число, заведомо меньшее вводимых }
  for i := 1 to n do
  begin
    Read(x[i]);
    if max < x[i] then max := x[i]
  end;
  Writeln;
  for i := 1 to n do
  begin x[i] := x[i] / max; Write(x[i], ' ') end;
  Writeln
end.