Построить новую матрицу, изменяя каждый столбец первой матрицы

type matr=array [1..10,1..10]of integer; ar=array[1..10] of integer;
var b:matr; n,m:integer; a:ar;
procedure vv(var x:matr; n,m:integer);
var i,j:integer;
begin
for i:= 1 to n do
for j:=1 to m do read(x[i,j]) end;
procedure ab(var j:integer);
var i:integer;
begin
begin for i:=1 to m do b[i]:=a[i]+a[i+1]/2; end; end;
procedure viv(var x:matr);
begin
for i:= 1 to n do
for j:=1 to m do x[i]:=ab[i] end;
begin
read(n,m); vv(b,n,m);
viv(b);
end.

type matr=array [1..10,1..10]of real;
procedure vv(var x:matr; n,m:integer);
var i,j:integer;
begin
for i:= 1 to n do
for j:=1 to m do
x[i,j]:=9*random;
end;
procedure ab(a:matr;var b:matr; n,k:integer);//k-номер столбца
var i:integer;
begin
for i:=1 to n-1 do
b[i,k]:=(a[i,k]+a[i+1,k])/2;
end;
procedure viv(x:matr;n,m:integer;s:string);
var i,j:integer;
begin
writeln(s);
for i:= 1 to n do
 begin
  for j:=1 to m do
  write(x[i,j]:6:2);
  writeln;
 end;
end;
var a,b:matr;
    n,m,j:integer;
begin
repeat
writeln('Введите размеры матриц n,m');
readln(n,m);
until(n in [2..10])and(m in [2..10]);
vv(a,n,m);
viv(a,n,m,'Матрица А');
for j:=1 to m do
ab(a,b,n,j);
viv(b,n-1,m,'Матрица В');
end.