Составить программу которая все отрицательные элементы массива удваивает а положительные...

//PascalABC.Net 3.2
begin
var a: array of integer;
setlength(a, readinteger('Введите размерность массива: '));
for var i:=0 to length(a)-1 do
begin
a[i]:=readinteger('Введите элемент: ');
if a[i]<0 then a[i]*=2 else a[i]*=3;<br>end;
write (a);
end.