Дан массив из 10 частей. Конвертировать массив, прибавив к нечётным элементам

Program znanija;var i,n:integer;a:array[1..10] of integer;beginfor i:=1 to 10 do begin  writeln('Введите ',i,'-ый элемент массива');  read(a[i]);  if a[i] mod 2 = 1 then a[i]:=a[i]+1;  end;writeln;writeln; writeln('Новый массив:');for i:=1 to 10 do   writeln(a[i],'(',i,')');end.