Матрица B получается из А вычеркиванием k-й строки; найти матрицу В и сумму элементов ее L-го столбца

const
  n=5;
  m=4;
  a: array[1..n,1..m] of real=((6.2,   8.3,  -4.9, -15.0),
                               (5.1,  -2.0,  -3.1,   8.6),
                               (-1.2,  3.1,   7.4,   8.0),
                               (-9.0,  4.1,  -5.6,  -1.0),
                               (0.1,  -4.0,  -0.8,   1.7));
var
  i,j,k,l,i1: integer;
  sum: real;
  b: array[1..n,1..m] of real;
begin
  k:=3;
  for i:=1 to n-1 do
    for j:=1 to m do
      if i<k then b[i,j]:=a[i,j] 
      else b[i,j]:=a[i+1,j];
  
  writeln('Массив B:');
  for i:=1 to 4 do
  begin
    for j:=1 to 4 do
      write(b[i,j]:6);
    writeln;
  end;
  
  l:=2; sum:=0;
  for i:=1 to n-1 do
    sum:=sum+b[i,l];
  writeln('Сумма элементов ',l,'-го столбца = ',sum);;
  readln;
end.

const
  n=5;  m=4;
 
type
 Matrix = array [1..n, 1..m] of real;
 
const  
  a: Matrix = ((6.2, 8.3, -4.9, -15.0),
                    (5.1, -2.0, -3.1, 8.6),
                    (-1.2, 3.1, 7.4, 8.0),
                    (-9.0, 4.1, -5.6, -1.0),
                    (0.1, -4.0, -0.8, 1.7));
 
procedure MatrixB (A : Matrix; k : integer; var B : matrix);
var
  i, j : integer;
begin
for i:=1 to n-1 do
 for j:=1 to m do
  if i<k then b[i,j]:=a[i,j] else b[i,j]:=a[i+1,j];
end;
 
procedure PrintB (B : Matrix);
var
  i, j : integer;
begin
for i:=1 to 4 do
 begin
 for j:=1 to 4 do write(b[i,j]:6);
 writeln;
 end;
end;
 
procedure SummaB(B :Matrix; l : integer; var sum : real);
var
 i :integer;
begin
 sum := 0;
  for i:=1 to n-1 do sum:=sum+b[i,l];
end;
 
var
k,l: integer;
sum: real;
b: Matrix;
begin
k:=3;
MatrixB(A, k, B);
writeln('Массив B:');
PrintB(B);
l:=2; 
SummaB(B, l, sum);
writeln('Сумма элементов ',l,'-го столбца = ',sum);;
readln;
end.