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

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] lt; min then              // если элемент массива меньше минимума.
         min := arr[i];                     // делаем текущий элемент массива наименьшим.
         write(arr[i], );                  // вывод на экран текущего элемента массива.
      end;
   writeln(Малый элемент массива = , min); // вывод строчки на экран.
End.