Написать программу которая задает массив случайным образом и ищет минимальный элемент

const n=10; var a:array[1..n] of integer; min,i:integer; begin Randomize; for i:=1 to n do begin  a[i]:=random(51);  write(a[i],' ');  end; writeln; min:=a[1];  for i:=2 to n do  if a[i]