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

const n=10;var a:array[1..n] of integer;min,i:integer;beginRandomize;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]<min then min:=a[i];writeln('min = ',min);end.Пример:26 23 27 25 35 8 40 17 43 23 min = 8