Массивы данных: Получить массив В[1..n], где Вк- это наибольшее из значений к-й строки

program matrica;
uses crt;
const n=3;
      m=6;
var matrix:array[1..n,1..m] of integer;
i,j:byte;
begin clrscr;
 writeln('Введіть матрицю ',n,'*',m);
 for i:= 1 to n do
     for j:=1 to m do
      for i:=1 to 3 do
          readln;
     begin
     for j:=1 to 3 do
     write(matrix[i,j],' ');
     writeln;
     end;
 end.

uses crt;
const n = 100; m = 100;
var
A: array [1..n,1..m] of integer;
B: array [1..n] of integer;
i,j,strok,stolbcov,max: integer;
begin
writeln('Введите количество строк матрицы:');
readln(strok);
writeln('Введите количество столбцов матрицы:');
readln(stolbcov);
writeln('Рандомной заполняем матрицу и выводим ее:');
for i:=1 to strok do
begin
for j:=1 to stolbcov do
begin
A[i,j]:=random(60);
write(A[i,j],' ');
end;
writeln();
end;
writeln('Выводим максимальный элемент к-ой строки массива А:');
for i:=1 to strok do
begin
max:=0;
for j:=1 to stolbcov do
if (A[i,j] > max) then
begin
max:=A[i,j];
end;
B[j]:=max;
write(B[j],' ');
end;
end.

const
  nmax=20;
  
type
  ta1=array[1..nmax,1..nmax] of integer;
  ta2=array[1..nmax] of integer;
  
procedure find(a: ta1; var b: ta2; n,m: byte);
var i,j,jmax: byte;
begin
    for i:=1 to n do
  begin
    jmax:=1;
    for j:=2 to m do
      if a[i,j]>a[i,jmax] then jmax:=j;
    b[i]:=a[i,jmax];
  end;
end;
 
procedure output(b: ta2; n: byte);
var i: byte;
begin
  writeln('Полученный массив:');
  for i:=1 to n do write(b[i]:4);
  writeln;
end;
 
var
  a: ta1;
  b: ta2;
  i,j,n,m,imax,jmax: byte;
begin
  repeat
    write('Введите размеры матрицы n, m: ');
    readln(n,m);
  until (n in[1..nmax])and(m in[1..nmax]);
  writeln('Исходная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  find(a,b,n,m);
  output(b,n);
end.