Составьте программу , которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 10 , затем преобразовывает его, увеличивая все элементы с четными значениями на1 . если элементы с четными значениями отсутствуют, оставить массив без изменений

Program ex;
var i:integer ;mas:array [1..10] of integer;
begin 
 for i:=1 to 10 do   
 begin   
  mas[i]:=random(10);   
  if (mas[i] mod 2)=0 then     
   mas[i]:=mas[i]+1;   
 end;
end.