Впаскаль 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.