В каждую из двух матриц добавить по столбцу, в котором элементы равны суммам элементов соответствующих строк

uses crt;
const nmax=10;
type mtr=array[1..nmax,1..nmax+1] of integer;
procedure vvod(var a:mtr;var m,n:byte;c:char);
var i,j:byte;
begin
writeln('Матрица ',c);
repeat
write('Количество строк до ',nmax,'=');
read(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,'=');
read(n);
until n in [1..nmax];
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random(20);
end;
procedure vyvod(a:mtr;m,n:byte;s:string);
var i,j:byte;
begin
writeln(s);
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln
 end;
end;
procedure add_stb(var a:mtr;m:byte;var n:byte);
var i,j:byte;
    s:integer;
begin
n:=n+1;
for i:=1 to m do
 begin
  s:=0;
  for j:=1 to n-1 do
  s:=s+a[i,j];
  a[i,n]:=s
 end;
end;
 
var a,b:mtr;
    m,n,k,l:byte;
begin
clrscr;
randomize;
vvod(a,m,n,'A');
vyvod(a,m,n,'Исходная матрица А');
add_stb(a,m,n);
vyvod(a,m,n,'Добавление столбца в матрицу А');
write('Нажмите Enter для продолжения');
readln;
vvod(b,k,l,'B');
vyvod(b,k,l,'Исходная матрица B');
add_stb(b,k,l);
vyvod(b,k,l,'Добавление столбца в матрицу B');
end.