Задать массив m(7) случайными числами от 12 до 73. утроить элементы массива, стоящие на нечетных местах. утроить чётные элементы массива, стоящие на нечетных местах

ну допустим элементы (36, 50, 41, 70, 31, 26, 38) преобразуем и выводим (180, 50, 245, 70, 155, 26, 190)

Var
  m: array [1..7] of integer;
  i: byte;
begin
randomize;
writeln('Исходный массив.');
for i := 1 to 7 do
begin
  m[i] := random(61)+12;
  write(m[i],' ');
end;
writeln; writeln;
writeln('Утроили стоящие на нечетных местах.');
for i := 1 to 7 do
begin
  if i mod 2 <> 0 then m[i] := m[i]*3;
  write(m[i],' ');
end;
writeln; writeln;
writeln('Утроили четные на нечетных местах.');
for i := 1 to 7 do
begin
  if ((i mod 2 <> 0) and (m[i] mod 2 = 0)) then m[i] := m[i]*3;
  write(m[i],' ');
end;
end.