В массиве y(30), сформированном случайным образом. Найти максимальный элемент и его номер — Pascal(Паскаль)

uses crt;

const
  Lim = 100;

var
  y: array [1 .. 30] of real;
  i, nom: byte;
  Max: real;

begin
  ClrScr;
  nom := 1;
  Max := -Lim;
  randomize;
  writeln('Sformirovannyi vector:');
  for i := low(y) to high(y) do
  begin
    y[i] := -Lim + random(2 * Lim + 1) + Trunc(random * 10) / 10;
    writeln('#', i, ': ', y[i]:6:2);
    if y[i] >= Max then
    begin
      Max := y[i];
      nom := i;
    end;
  end;
  writeln;
  writeln('Max=', Max:6:2, ' Nom=', nom);
  readkey;

end.