В массиве все положительные элементы увеличить в 2 раза, а все

Const n=10;
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
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]gt;0 then a[i]:=2*a[i] else if a[i]lt;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