Найти одномерный массив В из сумм элементов каждой строки матрицы

uses crt;
var 
A:array[1..5,1..4] of integer;
B:array[1..5] of integer;
    i,j,p:integer;
 begin
  For i:=1 to 5 do
  Begin
   For j:=1 to 4 do
    Begin
     A[i,j]:=random(9)+10;
     write(A[i,j]:3);
    End;
   writeln;
   End;
 Writeln('Сумма строк ');
 For i:=1 to 5 do  
   Begin
    For j:=1 to 4 do
     p:=p+A[i,j];
    B[i]:=p;
  writeln(B[i]:3); 
    p:=0;
   End;
 End.

uses crt;
var 
A:array[1..5,1..4] of integer;
    i,j,max:integer;
 begin
  For i:=1 to 5 do
  Begin
   For j:=1 to 4 do
    Begin
     A[i,j]:=random(9)+10;
     write(A[i,j]:3);
    End;
   writeln;
   End;
    For j:=1 to 4 do
     If (A[5,j] > max) then
     Max:=A[5,j];
   Writeln('Максимум 5-ой qстроки ',max);
     writeln
 End.

begin
  For i:=1 to 5 do
  Begin
   For j:=1 to 4 do
    Begin
     A[i,j]:=random(9)+10;
     write(A[i,j]:3);
    End;
   writeln;

uses crt;
var 
A:array[1..5,1..4] of integer;
    i,j,max:integer;
 begin
  For i:=1 to 5 do
  Begin
   For j:=1 to 4 do
    Begin
     A[i,j]:=random(9)+10;
     write(A[i,j]:3);
    End;
   writeln;
   End;
    For j:=1 to 4 do
     If (A[5,j] > max) then
     Max:=A[5,j];
   Writeln('Максимум 5-ой qстроки ',max);
    A[3,4]:=max;
    Writeln('Полученный массив:');
  For i:=1 to 5 do
  Begin
   For j:=1 to 4 do
    Begin
     write(A[i,j]:3);
    End;
   writeln;
   End;
 End.