Как удвоить все отрицательные нечётные числа в паскале ( массив)

Вообщем решил данную проблему 

Если просто условие, то вот оно:
if (a[i]<0) AND (a[i] mod 2 =1) then a[i]:=a[i]*2