Вывести на экран массив из 10 случайных положительных и отрицательных чисел.сформировать и вывести на экран второй массив, состоящий из четных элементов первого массива, нечетные изменяются на 1

Program programma;
Uses crt;

Var i: integer;
    a: array [1..100] of integer;
   
begin clrscr;
      randomize;

      for i:=1 to 10 do
      a[i]:=random(100)-50;

      for i:=1 to 10 do
      write(a[i]:4);
      writeln; writeln;
     
      for i:=1 to 10 do
      begin
           if ((a[i] mod 2)=0) then
      write(a[i]:4)
           else
               begin a[i]:=1;
               write(a[i]:4)
               end;
       end;
      writeln; writeln;

end.