Найти наибольшие элементы каждой строки матрицы, и записать их в одномерный массив

const
  n = 6;m = 8;
 
var
  A: array [1..n, 1..m] of integer;
  B: array [1..M] of real;
  i, j: integer;
 
begin
  randomize;
  write('массив A:');
  writeln;
  writeln;
  for i := 1 to n do
    for j := 1 to m do
      a[i, j] := random(50);
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j]:5);
    writeln;
    writeln;
  end;
  for i := 1 to n do
  begin
    B[i] := 0;
    for j := 1 to m do
    begin
      B[i] := B[i] + A[i, j];
    end;
    B[i] := B[i] / m;
    writeln('Среднее ', i, ' строки = ', B[i]:10:2);
  end;
end.

Uses Crt;
Var A:array[1..20,1..20] of integer;
    B:array[1..20] of integer;
    i,j,n,m:byte;
Begin
    ClrScr;Randomize;
    write('Кол-во строк: ');readln(n);
    write('Кол-во столбцов: ');readln(m);
    For i:=1 to n do
     For j:=1 to m do
     Begin
       a[i,j]:=random(n*m)-m*n div 2;
//       write('A[',i,',',j,'] = ');
//       readln(A[i,j]);
     End;
    ClrScr;
    writeln('Матрица');
    For i:=1 to n do
    Begin
      B[i]:=A[i,1];
      For j:=1 to m do
      Begin
        write(A[i,j]:4);
        if A[i,j]>B[i] then B[i]:=A[i,j];
      End;
      writeln;
    End;
    writeln('Полученный массив');
    For i:=1 to n do
     write(B[i]:4);
    readln;
End.

writeln('Матрица');
    For i:=1 to n do
    Begin
      B[i]:=A[i,1]; // копируем в массив 1-е элементы каждой строки
      For j:=1 to m do
      Begin
        write(A[i,j]:4);
        if A[i,j]>B[i] then B[i]:=A[i,j];  // если находим элемент в строке, который больше чем 1-й, то перезаписываем его в массив, т.е. мы находим максимальный элемент каждой строки
      End;
      writeln;
    End;
    writeln('Полученный массив');
//выводим массив на экран
    For i:=1 to n do
     write(B[i]:4);
    readln;