Задан массив,состоящий из 10 чисел(1-100).Определить максимальное число данного массива — Pascal(Паскаль)

var
  a: array [1 .. 10] of byte;
  min, i: byte;

begin
  Randomize;
  for i := 1 to 10 do
    a[i] := random(100);

  min := a[1];
  for i := 2 to 10 do
    if a[i] < min then
      min := a[i];

  writeln(min);

end.