Процедуры: распечатать ту строку матрицы, в которой находится ее максимальный элемент - PascalABC.NET

program pr;
 
type
  arr = array [1..100, 1..100] of integer;
 
var
  a, b, c: arr;
  n, m: integer;
 
procedure fillshow(var x: arr; v: integer; c: integer);
var
  i, j: integer;
begin
  randomize;
  for i := 1 to v do
    for j := 1 to c do
      x[i, j] := random(21);
  for i := 1 to v do
  begin
    for j := 1 to c do
      write(x[i, j]:3);
    writeln;
  end;
end;
 
procedure find(var x: arr; v: integer; c: integer);
var
  i, j, max, index: integer;
begin
  max := x[1, 1];
  for i := 1 to v do
    for j := 1 to c do
      if x[i, j] >= max then
      begin
        max := x[i, j];
        index := i;
      end;
  for j := 1 to c do
    write(x[index, j]:3);
end;
 
begin
  writeln('Введите количество строк матрицы А');
  readln(n);
  writeln('Введите количество столбцов матрицы А');
  readln(m);
  fillshow(a, n, m);
  writeln('Строка с наибольшим элементом');
  find(a, n, m);
  writeln;
  writeln('Введите количество строк матрицы B');
  readln(n);
  writeln('Введите количество столбцов матрицы B');
  readln(m);
  fillshow(b, n, m);
  writeln('Строка с наибольшим элементом');
  find(b, n, m);
  writeln;
  writeln('Введите количество строк матрицы C');
  readln(n);
  writeln('Введите количество столбцов матрицы C');
  readln(m);
  fillshow(c, n, m);
  writeln('Строка с наибольшим элементом');
  find(c, n, m);
end.