В массиве все положительные элементы увеличить в 2 раза, а все отрицательные заменить на 7. Вывести на экран исходный и преобразованный массивы.
Помогите пожалуйста, очень нужно Т.т

const n=10;var a:array[1..n] of integer;i:integer;beginRandomize;for i:=1 to n do begin a[i]:=random(21)-10; write(a[i]:4); end;writeln;for i:=1 to n do if a[i]>0 then a[i]:=2*a[i] else if a[i]<0 then a[i]:=7;for i:=1 to n do write(a[i]:4);writeln;end.Пример:  -4   4 -10   6  -8   9   0   5   3  10   7   8   7  12   7  18   0  10   6  20