Формировать новую матрицу, вычеркнув из исходной матрицы строку с максимальной суммой элементов

program pr2;
Uses
 Crt;
Var
m,n,i,j,k,l:byte;
mas_a, mas_b:array[1..8,1..8] of integer;
sum_st,max:integer;
numb_st:byte;
begin
Clrscr;
Randomize;
 writeln('vvedite kol-vo strok matricu(2..8)');
 readln(m);
 writeln('vvedite kol-vo stolbcov matricu(2..8)');
 readln(n);
 
//заполняем массив случайными числами от -100 до 100
for i:=1 to m do
 for j:=1 to n do
   begin
    mas_a[i,j]:=random(100)-50;
   end;
 
//выводим на экран массив
writeln('massiv a');
for i:=1 to m do
 begin
 for j:=1 to n do
   begin
    write(mas_a[i,j]:3);
   end;
 writeln;
 end;
 
//находим строку с максимальной суммой элементов
max:=-300;
for i:=1 to m do
 begin
  sum_st:=0;
   for j:=1 to n do
    begin
    sum_st:=sum_st+ mas_a[i,j];
    end;
  if sum_st>max then begin max:=sum_st; numb_st:=i; end;
 end;
 writeln(numb_st);
 
//формируем новый массив
l:=1;
for i:=1 to m do
 begin
 k:=1;
 for j:=1 to n do
  begin
   if i<>numb_st then mas_b[l,k]:=mas_a[i,j] else break;
   inc(k);
  end;
 if i<>numb_st then inc(l);
 end;
 
//выводим новый массив на экран
writeln('massiv b');
for i:=1 to m-1 do
 begin
 for j:=1 to n do
   begin
    write(mas_b[i,j]:3);
   end;
 writeln;
 end;
 
readkey;
end.