В заданной таблице k[1..7,1..7] найдите сумму элементов в каждой строке. Сформируйте линейную таблицу a[1..7], содержащую полученные суммы, расположенные по убыванию — Pascal(Паскаль)

uses crt;
const n=7;
var m:array[1..n,1..n]of integer;
d:array[1..n]of integer;
i,j,b:integer;
 
begin
 clrscr;
 randomize;
 writeln('Исходный массив');
 for i:=1 to n do
 begin 
  for j:=1 to n do
  begin
    m[i,j]:=random(100);
    write(m[i,j]:3);
  end;
  writeln;
 end;
 
 for i:=1 to n do
 begin
  d[i]:=0;
  for j:=1 to n do d[i]:=d[i]+m[i,j];
  writeln('Строка ',i,' - ',d[i]);
 end;
 
 for i:=1 to n do for j:=1 to n-1 do if d[j] < d[j+1] then
 begin
  b := d[j];
  d[j] := d[j+1];
  d[j+1] := b;
 end;
 
 for i:=1 to n do write(d[i],' ');
 readln;
end.

program razor;

const
  n = 7;

var
  a: array [1 .. n, 1 .. n] of longint;
  b: array [1 .. n] of longint;
  i, p: integer;

begin
  randomize;
  for i := 1 to n do
    for p := 1 to n do
    begin
      a[i, p] := random(100);
    end;
  for i := 1 to n do
  begin
    for p := 1 to n do
      write(a[i, p]:5);
    writeln;
  end;
  b[i] := 0;
  for i := 1 to n do
    for p := 1 to n do
    begin
      b[i] := b[i] + a[i, p];
    end;
  writeln;
  for i := 1 to n do
    write(b[i]:5);

end.