Ввести одномерный массив А из N элементов. Каждый четный эле-мент массива нацело разделить на два. Массив вывести до и после преобразования — Pascal(Паскаль)

const
 N=50; {здесь установить сколько элементов нужно}
var
 i:integer;
 A:array [1..n] of integer;
begin
 For i:=1 to n do
  begin
    A[i]:=Random(n); {как вариант - заполнение случайными числами , но можешь и вручную организовать}
    write(A[i], ' ');
  end; 
writeln; 
for i:=1 to n do
  begin
   if not(odd(i)) then
      A[i]:=A[i] div 2;
   write(A[i], ' ');
  end;
readln;
end.

var
a:array [1..50] of integer;
n,kol:integer;
 
BEGIN
for n:=1 to 50 do a[n]:=random(99);
Readln(kol);
for n:=1 to kol do write(a[n],' ');
writeln;
for n:=1 to kol do begin
                   if not odd(a[n]) then a[n]:=a[n] div 2;
                   write (a[n],' ');
                   end;
readln;
END.