Найти сумму каждой строки матрицы

var
    n , m , i , j :longint;
    d :array[1 .. 100] of longint;
    a :array[1 .. 100 , 1 .. 100] of longint;
begin
    readln(n , m);
    for i := 1 to n do
        for j := 1 to m do begin
            read(a[i][j]);
            inc(d[i] , a[i][j]);
        end;
    for i :=1 to n do writeln(d[i]);
end.

uses crt;
const n=5;
      m=4;
      var
      a:array[1..100,1..100] of integer;
   i,j,d,sum:integer;
   begin
   randomize;
   for i:=1 to n do begin
   for j:=1 to m do begin
   a[i,j]:=random(30)-15;
   end;
   end;
   for i:=1 to n do begin
   writeln;
   for j:=1 to m do begin
   write(a[i,j]:4);
   end;
   end;
d:=0;
     for i:=1 to n do
begin
sum:=0;
  for j:=1 to m do
   begin
 
     sum:=sum+a[i,j];
     end;
     d:=d+1;
  writeln('Сумма ',d,' строки = ',sum);
 
          end;
                 readln;
       end.