Двумерный массив. Заполнить одномерный массив суммой значений элементов строк

const N=10;
var a: array[1..2,1..N]of integer;
    b: array[1..N]of integer;
    i,j,sum,k: integer;
begin
  for i:=1 to 2 do
    for j:=1 to N do
      a[i,j]:=random(N);
  for i:=1 to 2 do 
    begin
      writeln;
      for j:=1 to N do 
        begin
          write(a[i,j]:4,' ');
          b[j]:=a[1,j]+a[2,j];
          if j=N then begin
              for k:=1 to N do sum:=sum+a[i,k];
              write(' | Сумма ',i,'-й строки элементов массива "a" равна: ',sum);
              sum:=0;
            end;
        end;
    end;
  writeln;
  for i:=1 to 34 do write('---');
  writeln;
  for i:=1 to N do write(b[i]:4,' ');
  for i:=1 to N do sum:=sum+b[i];
  write(' | Сумма элементов массива "b" равна: ',sum:13);
end.

var m: array [1..5,1..5] of integer;
n:array [1..5] of integer;
i,j,max,nmax:integer;
begin
writeln('vvedite matricu');
for i:=1 to 5 do begin
for j:=1 to 5 do read(m[i,j]); end;
for i:=1 to 5 do
for j:=1 to 5 do n[i]:=n[i]+m[i,j];
for i:=1 to 5 do
writeln('summa strok = ',n[i]);
n[1]:=max;
for i:=2 to 5 do
if max<n[i] then begin max:=n[i]; nmax:=i; end;
writeln('stroka s max summoi pod nomerom ',nmax);
readln;
end.

if max<n[i] then begin max:=n[i]; nmax:=i; end;

if max<n[i] then begin n[i]:=max; nmax:=i; end;

 for i:=1 to 5 do 
 begin
  n[i]:=0; {Не забываем обнулять данные (Привыкайте, в некоторых языках не обнуляются массивы)}
  for j:=1 to 5 do 
  begin
   Writeln('A[',i,',',j,']= '); {Выводите пользователю информацию, чтоб было понятно что ему вводить}
   read(m[i,j]);
   inc(n[i],m[i,j]) {Если уж используете целый тип, то не обходите стороной хорошие функции} 
  end;
 end;