ОЧЕНЬ НУЖНА ПОМОЩЬ!
Решите пожалуйста в Паскале эту задачу,с использованием Random.
задан массив из 8 действительных чисел.Замените все отрицательные элементы данного массива его минимальным элементом.

const n=8;var x : array[1..n] of real;   i : integer; min : real;beginRandomize;writeln('Исходный массив:');for i:=1 to n do begin  x[i]:=20*random-10;  write(x[i]:6:2,' ');      end; writeln;min:=x[1];for i:=2 to n do if x[i] < min then min:=x[i];writeln('min=',min:6:2);for i:=1 to n do if x[i]<0 then x[i]:=min;writeln('Измененный массив:');for i:=1 to n do write(x[i]:6:2,' ');end.Пример:Исходный массив: -7.84  -9.97   7.00  -8.26  -7.71  -3.88   7.59  -2.32 min= -9.97Измененный массив: -9.97  -9.97   7.00  -9.97  -9.97  -9.97   7.59  -9.97