Нахождение максимального элемента в строке оформить в виде процедуры

uses crt;
const n=6;{размер}
var a:array[1..n,1..n] of integer;{тип}
i,j,max,min:integer;{счетчик циклов, макс, мин}
procedure nbb(k:integer; var max_r:integer );
var max,i,j:integer;
begin
for i:=1 to n do
max_r:=a[k,1];{пусть макс первый}
for j:=2 to n do{идем дальше по строке}
if a[k,j]>max then max:=a[k,j];{если есть больший, всех, он макс}
writeln('макс в строке ',k,'=',max);{вводим по строкам}
if max<min then min:=max;{если макс меньше предыдущих макс, он мин}
end;
begin
clrscr;
randomize;
writeln('матрица:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(20);{число от 0 до 19}
write(a[i,j]:4);
end;
writeln;
end;
nbb(i,max[i]);
writeln;
write('мин из макс=',min);{выводим}
readln
end.

{Дана матрица А(nxn). Написать программу нахождения минимального элемента
из (max1, ...,maxn), где maxi - максимальный в i - той строке. Нахождение
максимального элемента в строке оформить в виде проце
дуры.                                                }
 
uses
  crt;
const
  n=3;  {размер}
var
  a:array[1..n,1..n] of integer;{тип}
  i,j,max,min:integer;{счетчик циклов, макс, мин}
 
procedure nbb(k:integer; var max_r:integer );
var
  j:integer;
begin
  max_r:=a[k,1];{пусть макс первый}
  for j:=2 to n do{идем дальше по строке}
    if a[k,j]>max_r then
      max_r:=a[k,j];{если есть больший, всех, он макс}
end;
 
begin
  clrscr;
 
  writeln('Введите матрицу:');
  for i:=1 to n do
    for j:=1 to n do
      readln(a[i,j]);
 
  writeln('Исходная матрица:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(a[i,j]:4);
      writeln;
    end;
 
  nbb(1,max);
  min:=max;
  for i:=1 to n do
    begin
      nbb(i,max);
      writeln(i,'-я строка, в ней макс: ',max);
      if min>max then
        min:=max;
    end;
  writeln;
  writeln('мин из макс=',min);{выводим}
  readln;
end.