Задан массив А(n) (n=9).Четные элементы массива увеличить в два раза ,а нечетные увеличить в 3 раза.Вывести на экран преобразованный массив — Pascal(Паскаль)

Введите элементы исходного массива А:
2 -10 9 8 -12 7 -4 5 0

Элементы преобразованного массива:
4 -20 27 16 -24 21 -8 15 0

Uses WinCrt;
Const n= 9;
var
max,i:Integer;
x: array [1..100] OF integer;
Begin
For i:=1 to n do
Begin
Read(x[i]);
End;
For i:=1 to n do
Begin
If x[i] mod 2=0 Then
Begin
x[i]:=x[i]*2;
End
Else
Begin
x[i]:=x[i]*3;
End;
End;
For i:=1 to n do
Begin
Write(x[i],' ');
End;
End.