Найти максимальный элемент в массиве а10,заполненном случайным образом.

var

  a : array [1..10] of integer;

  i, max : integer;

begin

  for i := 1 to 10 do a[i] := trunc (random (500));

  max := 1;

  for i := 2 to 10 do

    if a[i] > a[max] then max := i;

  writeln ('Максимальный элемент a[', max, '] = ', a[max]);

end.