Все нечетные элементы удвоить в одномерном массиве, а четные уменьшить в двое — Pascal(Паскаль)

uses crt;
const n=10;
var a: array [1..n] of integer;
                    i: byte;
begin  
   randomize;  
   clrscr;    
   writeln ('исходный массив: ');
   for i:=1 to n do   
     begin    
       a[i]:=random (19)-9;
       write (a[i]:3);
       end;
   writeln;
   for i:=1 to n do    
     if odd(i) then a[i]:=a[i]*2  
     else a[i]:=a[i] div 2;  
  writeln  ('результирующий массив: ');
   for i:=1 to n do   
     write (a[i]:3);
end.