Cоставить программу , которая формирует массив из 8 случайных целых чисел от -20 до 20 и осуществляет поиск минимального элемента .

var ourbox: array [0..7] of integer;      i: integer; 
begin   for i:=0 to 7 do      begin         ourbox[i]:=Random(1,8);      end;      for i:=0 to 7 do      begin         Writeln(ourbox[i]);      end;end.

написано на паскаль абц нет