Задана матрица A(5,4). Вычислить суммы элементов каждой строки матрицы. Результат получить в одномерном массиве B(5). Определить номер строки с наибольшим значением вычисленной суммы — Pascal(Паскаль)

const
 n=5;m=4;
var
 a:array[1..n,1..m] of integer;
 b:array[1..n] of integer;
 i,sum,max,maxi,j:integer;
begin
 for i:= 1 to n do begin
   writeln;
   for j:= 1 to m do begin
     a[i,j]:= random(20);
     sum:=sum+a[i,j];
     write(a[i,j]:3);
   end;
   if sum > max then begin
     max:=sum;
     maxi:= i;
   end;
   b[i]:= sum;
   sum:= 0;
 end;
 writeln;
 writeln;
 for i:= 1 to n do
 writeln('b[',i,'] = ',b[i]);
 writeln;
 writeln;
 writeln('No max stroki = ',maxi);
end.