Написать программу, которая нечетные столбцы матрицы заменяет на x — Pascal(Паскаль)

type vector = array [1..20] of integer;
       matrix = array [1..20] of vector;
var x: vector; A: matrix;

uses crt;
type vector=array [1..20] of integer;
     matrix=array [1..20] of vector;
procedure Vvod(var mt:matrix;var n,m:byte);
var i,j:byte;
begin
repeat
write('Количество строк до 20 n=');
readln(n);
until n in [1..20];
repeat
write('Количество столбцов до 20 m=');
readln(m);
until m in [1..20];
for j:=1 to m do{записываем матрицу по столбцам}
for i:=1 to n do
mt[j,i]:=random(40)+10;
end;
procedure Vyvod(var mt:matrix;n,m:byte);
var i,j:byte;
begin
for i:=1 to n do
  begin
   for j:=1 to m do
   write(mt[j,i]:4);{выводим на экран по строкам}
   writeln;
  end;
end;
procedure Vect(var v:vector;n:byte);{создание вектора}
var i:byte;
begin
writeln('Вектор:');
for i:=1 to n do
 begin
  v[i]:=random(9)+1;
  write(v[i]:4);
 end;
end;
procedure Zamena(v1:vector;n:byte;var v2:vector);
var i:byte;
begin
for i:=1 to n do
v2[i]:=v1[i];{меняем элементы одного вектора на другой}
end;
 
var a:matrix;
    x:vector;
    n,m,j:byte;
begin
clrscr;
randomize;
Vvod(a,n,m);
writeln('Исходная матрица A:');
Vyvod(a,n,m);
Vect(x,n);
writeln;
for j:=1 to m do{идем по столбцам, как по строкам}
if odd(j) then Zamena(x,n,a[j]);{если нечетный, меняем}
writeln;
writeln('Матрица после замены нечетных столбцов:');
Vyvod(a,n,m);{выводим по строкам}
readln
end.