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

Const n=10;
Var a: array [1..n] of integer;
    i,min: integer;
Begin
For i:=1 to n do
a[i]:=Random(21)-10;
writeln ('Начальный массив: ');
for i:=1 to n do
write (a[i],' ');
writeln;
min:=a[1];
for i:=2 to n do
if a[i]lt;min then
min:=a[i];
writeln ('Малый элемент = ',min);
for i:=1 to n do
if a[i]lt;0 then
a[i]:=a[i]*min;
writeln ('Перевоплощенный массив:');
for i:=1 to n do
write (a[i], ' ');
end.