каждый нечётный элемент массива уменьшить в два раза а каждый чётный

Program z1;  Var a: array [1..100] of real; i,n:integer;Begin  write('Введите размера массива - ');  readln(n);  randomize;  for i:=1 to n do  begin    a[i]:=random(9)-0;    write (a[i],' ');  end;    writeln;  writeln;  for i:=1 to n do  begin    if (i mod 2 = 0) then a[i]:=a[i]+5                     else a[i]:=a[i]/2;    writeln(a[i]);  end;End.