Помогите пожалуйста
Преобразовать массив, умножив все отрицательные числа на минимальное число этого массива
Pascal abc

Const n=10;Var a: array [1..n] of integer;    i,min: integer;BeginFor i:=1 to n doa[i]:=Random(21)-10;writeln ('Исходный массив: ');for i:=1 to n dowrite (a[i],' ');writeln;min:=a[1];for i:=2 to n doif a[i]<min thenmin:=a[i];writeln ('Минимальный элемент = ',min);for i:=1 to n doif a[i]<0 then a[i]:=a[i]*min;writeln ('Преобразованный массив:');for i:=1 to n dowrite (a[i], ' ');end.