Впаскаль abc. net: задан одномерный массив датчиком случайных чисел состоящий из 10 элементов вместо чётных элементов поставить единицы и вывести на экран

Var
    arr: array[1..10] of integer;
    i: integer;

begin
    randomize;

    for i:=1 to 10 do
    begin
        arr[i] := random(100);
        write(arr[i] + #9);
    end;
    
    writeln();
    
    for i:=1 to 10 do
    begin
         if arr[i] mod 2 = 0 then
         begin
            arr[i] := 1
        end;
        write(arr[i] + #9);
    end;

end.

Const
    handsfree = true;
    n = 15;

var
    a: array[1..n] of real;
    i: integer;
    sum: real;

begin
    {ввод массива}
    writeln('Данные массива:');
    for i := 1 to n do
    begin
        if handsfree then begin
            a[i] := random(100) - 50;
            write(a[i], ' ');
        end
        else readln(a[i]);
    end;
    writeln();
    
    {подсчет суммы и произведения}
    sum := 0;
    for i := 1 to n do
    begin
        if a[i] > 10 then
            sum := sum + a[i];
    end;
    writeln('sum = ', sum);
end.

//1a

Var
 i,x1,x2:integer;
begin
 for i:=10 to 99 do
  begin
   x1:=i mod 10;
 x2:=i div 10;
   if (sqr(x1)+sqr(x2)) mod 13=0 then writeln(i);
  end;
end.

//1б
Var
 i,x1,x2:integer;
begin
 for i:=10 to 99 do
  begin
   x1:=i mod 10;
   x2:=i div 10;
   if x1+x2+sqr(x1+x2)=i then writeln(i);
  end;
end.

//2
Var
 i,n,a,k1,k2:integer;
begin
 readln(n);
 for i:=1 to n do
  begin
   readln(a);
   if a<1985 then k1:=k1+1;
   if a>1990 then k2:=k2+1;
  end;
 writeln('Родившиеся до 1985:',k1);
 writeln('Родившиеся после 1990:',k2);
end.