Для массива X=(x1,x2,..,x50) найти наибольший элемент массива.Все элементы массива поделить на значение наибольшего элемента.
Помогите пожалуйста)

Спасибо большое!

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;  Writelnend.