Дана матрица Y(k,l).Получить из неё вектор,содержащий суммы элементов строк

Program Bred;
Uses WinCrt;
Const n=6;
Var
  A:array [1..n,1..n] of integer;
  B:array [1..n] of integer;
  i,j,k,s:integer;
Begin
  Randomize;
  Writeln ('Èñõîäíàÿ ìàòðèöà:');
  For i:=1 to n do
   Begin
     For j:=1 to n do
       Begin
         A[i,j]:=Random(41)-20;
         Write (A[i,j]:4);
       End;
     Writeln;
   End;
 
     i:=1; k:=1;
     While (i<=n) do
      Begin
        S:=0;
    For j:=1 to n do
    S:=S+A[i,j];
        B[k]:=S;
        inc(i);
    inc(k);
      End;
   Writeln;
 
   For i:=n downto 2 do
   For k:=1 to i-1 do
   if (B[k+1]>B[k])then
     Begin
       s:=B[k];
       B[k]:=B[k+1];
       B[k+1]:=s;
     End;
 
   Writeln ('Vector: ');
   For k:=1 to n do
   write (B[k]:4);
End.

Program Mat_All;
Uses WinCrt;
Const n=6;
Var
  A:array [1..n,1..n] of integer;
  B:array [1..n] of integer;
  i,j,k,s:integer;
Begin
  Randomize;
  Writeln ('Matrica:');
  For i:=1 to n do
   Begin
     For j:=1 to n do
       Begin
         A[i,j]:=Random(41)-20;
         Write (A[i,j]:4);
       End;
     Writeln;
   End;
 
     i:=1; k:=1;
     While (i<=n) do
      Begin
        S:=0;
    For j:=1 to n do
    S:=S+A[i,j];
        B[k]:=S;
        inc(i);
    inc(k);
      End;
   Writeln;
 
   For i:=n downto 2 do
   For k:=1 to i-1 do
   if (B[k+1]>B[k])then
     Begin
       s:=B[k];
       B[k]:=B[k+1];
       B[k+1]:=s;
     End;
 
   Writeln ('Vector: ');
   For k:=1 to n do
   write (B[k]:4);
End.

Program Mat_All;
Uses WinCrt;
Const n=6;
Type
  Massiv = Array [1..n,1..n] of integer;
  Vector = Array [1..n] of integer;
 
Var
  A:massiv;
  B:vector;
  i,j,k,s:integer;
 
Procedure FormMatr (suda:integer; var new:massiv);
Var i,j:integer;
  Begin
    Randomize;
    For i:=1 to suda do
    For j:=1 to suda do
    New[i,j]:=Random(41)-20;
  End;
 
Procedure VyvodMatr (suda:integer; var new:massiv);
Var i,j:integer;
  Begin
    For i:=1 to suda do
     Begin
      For j:=1 to suda do
      Write (New[i,j]:4);
      Writeln;
     End;
  End;
 
Procedure FormVector (suda:integer; matr:massiv; var new:vector);
Var i,j,k,S:integer;
  Begin
    i:=1; k:=1;
    While (i<=suda) do
      Begin
        S:=0;
        For j:=1 to suda do
        S:=S+matr[i,j];
        New[k]:=S;
        inc(i);
        inc(k);
      End;
  End;
 
Procedure SortVector (suda:integer; var new:vector);
Var i,j,k,S:integer;
  Begin
   For i:=suda downto 2 do
   For k:=1 to i-1 do
   if (New[k+1]>New[k])then
     Begin
       s:=New[k];
       New[k]:=New[k+1];
       New[k+1]:=s;
     End;
  End;
 
Procedure VyvodVector(suda:integer; Var New:Vector);
Var i:integer;
  Begin
    For i:=1 to suda do
    Write(New[i]:5);
  End;
 
Begin
  Writeln ('Ishodnaya:');
  FormMatr (n,A);
  VyvodMatr (n,A);
  Writeln ('Vector:');
  FormVector (n,A,B);
  SortVector (n,B);
  VyvodVector (n,B);
End.