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

var   min, i : integer;                         // объявляем переменные целочисленного типа.   arr : array [1..50] of integer;     // объявляем массив.Begin     for i:= 1 to 50 do                      // начало цикла.      begin         arr[i] := random(-50,50);    // заполняем элемент массива с индексом i случайным числом.         if arr[i] < min then              // если элемент массива меньше минимума.         min := arr[i];                     // делаем текущий элемент массива минимальным.         write(arr[i],\' \');                  // вывод на экран текущего элемента массива.      end;   writeln(\'Минимальный элемент массива = \', min); // вывод строки на экран.End.