Найти два одинаковых элемента в двумерном массиве

Const n=30;m=7;
//////////////
For i:=1 to n do
 For j:=1 to m do
  For t:=i to n do
   For r:=j+1 to m do
    if A[i,j]=A[t,r] then ///запоминаем индексы

Const n=30;m=7;
Var A:array[1..n,1..m] of integer;
    i,j,t,r,in1,jm1,in2,jm2:integer;
    b:boolean;
Begin
    For i:=1 to n do
     For j:=1 to m do
     Begin
       write('A[',i,',',j,'] = ');
       readln(A[i,j]);
     End;
    i:=1;b:=true;
    While (i<=n)and(b) do
    Begin
      j:=1;
      While (j<=m)and(b) do
      Begin
        t:=i;
        While (t<=n)and(b) do
        Begin
          r:=j;
          While (r<=m)and(b) do
          Begin
            if (A[i,j]=A[t,r])and(i<>t)and(j<>r) then
            Begin
              in1:=i;
              in2:=t;
              jm1:=j;
              jm2:=r;
              b:=false;
            End;
            inc(r);
          End;
          inc(t);
        End;
        inc(j);
      End;
      inc(i);
    End;
    writeln('Одинаковые числа их индексы A[',in1,',',jm1,']',' A[',in2,',',jm2,']');
    readln;
End.