Написать программу о нахождении минимально значения массива.

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.Пример:25 14 21 7 30 50 20 32 33 17 min = 7

.........................