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