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

//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.