Дан массив с 50 элементами. найти максимальный элемент массива. используйте для ввода элементов массива функцию random(x).

Var m : array[1..50] of Integer;
  i,max : Integer;
Begin
  max:=0;
  For i:=1 to 50 do
  Begin
   m[i]:=Random(100);
   if m[i]>max then max:=m[i];
  end;
  Writeln(max);
end.