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

Program mas;
Uses crt;
Const m=5; n=4;
Var a: array[1..m,1..n] of byte; b: array[1..m] of byte; i,j,max,s: byte; 
Begin
Clrscr;
Randomize;
For i:=1 to m do
begin
For j:=1 to n do
begin
a[i,j]:=random(21);
b[i]:=b[i]+a[i,j];
Write(a[i,j]:4);
end;
Writeln('      ',b[i]);
end;
max:=b[1];
For i:=2 to m do
If b[i]>max then 
begin
max:=b[i];
s:=i;
end;
Writeln('Наибольшая сумма в ',s,'-ой строке');
End.