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

Кхм что то не так.не могли бы вы помочь с полнйо задачей?Дано натуральное число N и последовательность целых чисел a1 a2 an заданные случайным образом из диапазона [-35;25]. Удвоить все отрицательные числа нечётные этой последовательности. Решить задачу для n=10

var a: array [1..10] of integer; // возьмем массив из 10 чисел    i,x      :byte;begin  randomize;  for i:=1 to 10 do //заполняем исходный массив случайными числами (до 10)  begin    a[i]:=random(10)-5;    write (' ' ,a[i]);  end;  writeln ();  for i:=1 to 10 do  begin        if (a[i] < 0) and (a[i] mod 2 <> 0 ) then          a[i]:=a[i]*a[i];          write ( ' ',a[i]);  end;end.

Вот так будет правильно

в цикле УДВОЕНИЕ, а не возведение во вторую степень. Правильно в задаче   a[i]:=a[i]*2

Поспешишь - людей насмешишь =(

Решите лучше чуть ниже задачку. Я её написал под другой коментарий, пожалуйста. По вашим решениям всё равно что то не выходит

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

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