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

//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;
end;
write (a);
end.