Нужно написать программу с двумя функциями/процедурами , одна по формированию массива другая по произведению четных

program Zadanie29;
 
type
  TArr = array [1..100] of integer;
 
procedure randqw(a,b,k: integer; var arr: TArr);
var
  i: integer;
begin
randomize;
 for i:=1 to k do
   arr[i]:=b + random(a - b + 1);
end;
 
procedure arrprint(k:integer; arr: TArr);
var
i: integer;
begin
for i:=1 to k do
  write(arr[i]:4);
writeln;
end;
 
 
procedure powoddelem(k: integer; var arr: TArr);
var
  i:integer;
begin
 for i:=1 to k do
   if not odd(i) then
       arr[i]:=arr[i]*i;
end;
 
 
var
  a1,a2: integer; //Переменные для хранения значений верхней границы диапазона случаных чисел.
  b1,b2: integer; //Переменные для хранения значений нижней границы диапазона случаных чисел.
  arr1: TArr;     //Переменная для хранения значений элементов одномерного массива
  n,m: integer;   //Переменные, хранящие значения максимального  числа элементов массива.
begin
a1:=5;
b1:=1;
a2:=5;
b2:=-3;
writeln('Введите значение количества элементов массива № 1: (N) (N < 100)');
readln(n);
writeln('Введите значение количества элементов массива № 2: (M) (M < 100)');
readln(m);
 
randqw(a1,b1,n,arr1);  //Заполняем массив случайными числами.
writeln('Исходный массив № 1:');
arrprint(n,arr1);    // Выводим массив на экран.
powoddelem(n,arr1);  // Изменяем массив, умножая номер четного элемента на его значение.
writeln('Преобразованный массив № 1:');
arrprint(n,arr1);    // Выводим массив на экран.
 
randqw(a2,b2,m,arr1);
writeln('Исходный массив № 2:');
arrprint(m,arr1);
powoddelem(m,arr1);
writeln('Преобразованный массив № 2:');
arrprint(m,arr1);
 
readln;
end.