Процедура сложения строк или столбцов в матрице

  uses crt;
Const
Nmax=100;
Type
Matrix=array [1..Nmax,1..Nmax] of integer;
Var
A,B,C:matrix;
i,j,z,h,q,k:integer;
Begin
 clrscr;
 writeln('vvedite kolli4estvo strok');
 Readln(z);
 writeln('vvedite kolli4estvo stolbcov');
 readln(h);
  For i:=1 to z do
  For j:=1 to h do
 Begin
  Write ('[',i,',',j,']=');
  Readln (A [i,j]);
 end;
  for i:=1 to z do
 begin
  for j:=1 to h do
  write(a[i,j]:5);
  writeln;
 end;
 begin
   writeln('nomer pervoi stroki');
   readln(k);
   For i:=k to z do
   For j:=1 to h do
   end;
 begin
    Writeln('nomer vtoroi stroki');
    readln(q);
    For i:=q to z do
    For j:=1 to h do
    a[i,j]:=a[q,j]+a[k,j];
   begin
    For i:=1 to z do
   begin
    For j:=1 to h do
    write(a[i,j]:5);
    writeln;
    readln;
 end;
end;
end;
end.

var b:array[1..nmax] of inteher;
..........................
for i:=1 to h do
b[i]:=a[k,i]+a[q,i];
......................

const max=20;
type Tmatr=array[1..max,1..max] of integer;
 
procedure Trans(m1:Tmatr;n:byte; var m2:Tmatr);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
m2[i,j]:=m1[j,i];
end;
 
procedure UmnMatr(m1,m2:Tmatr;n:byte;var m:Tmatr);
var i,j,k:byte;
begin
for k:=1 to n do
for j:=1 to n do
  begin
   m[k,j]:=0;
   for i:=1 to n do
   m[k,j]:=m[k,j]+m1[k,i]*m2[i,j];
  end;
end;
 
procedure SumMatr(m1,m2:Tmatr;n:byte;var m:Tmatr);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
m[i,j]:=m1[i,j]+m2[i,j];
end;

n:=3;
k:=1;
q:=2;
for i:=1 to n do
b[i]:=0;
for i:=1 to n do
b[i]:=b[i]+a[k,i]+a[i,q];

 writeln('vvedite nomer stroki');
 readln(k);
 writeln('vvedite nomer stolbca');
 readln(q);
for i:=0 to n-1 do
b[i]:=b[i]+a[k,i]+a[i,q];
 
for i:=0 to n-1 do
 
write(b[i]:4);
 
readln;
end.

var a:array[1..10,1..10]of integer;
    n,i,j,k,q,s:integer;
begin
randomize;
repeat
write('Размер массива от 1 до 10 n=');
readln(n);
until n in [1..10];
writeln('Массив А');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=1+random(10);
    write(a[i,j]:3);
   end;
  writeln;
 end;
repeat
write('Введите номер строки от 1 до ',n,' k=');;
readln(k);
until k in [1..n];
repeat
write('Введите номер столбца от 1 до ',n,' q=');;
readln(q);
until q in [1..n];
for i:=1 to n do
s:=0;
for i:=1 to n do
s:=s+a[k,i]+a[i,q];
writeln('Сумма строки ',k,' и столбца ',q,'=',s);
readln;
end.