Вывести на экран массив из 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.