В заданной матрице A(6,6) определить две строки в которых max=min — Pascal(Паскаль)

uses crt;
const
n=6;
a:array[1..n,1..n] of byte=((2,3,4,5,6,7),
                            (2,3,4,5,2,3),
                            (2,3,4,5,6,7),
                            (2,3,4,5,6,7),
                            (6,6,6,5,6,6),
                            (2,3,4,5,6,7));
var i,j,mx,mn,f:byte;
    b:array[1..2,1..n] of byte;
begin
clrscr;
writeln('Матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
for i:=1 to n do
 begin
  mx:=a[i,1];mn:=a[i,1];
  for j:=1 to n do
   begin
    if a[i,j]>mx then mx:=a[i,j];
    if a[i,j]<mn then mn:=a[i,j];
   end;
  b[1,i]:=mx;
  b[2,i]:=mn;
 end;
f:=0;
for i:=1 to n do
for j:=1 to n do
if b[1,i]=b[2,j] then
 begin
  f:=1;
  writeln('Максимальный элемент строки ',i,' равен минимальному элементу строки ',j);
 end;
if f=0 then write('Таких строк нет!');
readln
end.