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

const   n = 15; var   a: array[1..n] of integer;   i: integer; begin   Randomize;   Writeln('Элементы массива');   for i := 1 to n do   begin     a[i] := Random(61) - 30;     Write(a[i]:4);     if a[i]>0 then a[i]:=2*a[i]     else       if a[i]<0 then a[i]:=7   end;   Writeln;   Writeln('После преобразования');   for i := 1 to n do Write(a[i]:4);   Writeln end. Тестовое решение: Элементы массива  -20  15  16  20   0  16 -15  -1  -2  21  -8 -10   4 -24   1 После преобразования    7  30  32  40   0  32   7   7   7  42   7   7   8   7   2