Поиск двух одинаковых чисел в двумерном массиве

uses crt;
var
   a:array[1..30,1..7] of integer;
   i,j,l,q,t:longint;
   m:set of byte;
   y:array[1..210] of integer;
begin
   clrscr;
   l:=0;
   for i:=1 to 30 do
      for j:=1 to 7 do
         readln(a[i,j]);
   for i:=1 to 30 do
   begin
      for j:=1 to 7 do
      begin
         write(a[i,j]:4);
         inc(l);
         y[l]:=a[i,j];
      end;
      writeln;
   end;
   m:=[];
   for i:=1 to l do
   if not (y[i] in m) then
      include(m,y[i])
   else
      q:=y[i];
   writeln('Число , повторяющееся 2 раза: ',q);
   writeln('Индексы: ');
   t:=0;
   for i:=1 to 30 do
      for j:=1 to 7 do
         if a[i,j]=q then
         begin
            inc(t);
            writeln(t,': [ ',i,' , ',j,' ]');
            writeln('------------');
         end;
   readln;
end.

program mas;
const n=5; m=5;
type myarray=Array[1..n,1..m] of integer;
var a: myarray;
i,io,j,jo,ko,po:integer;
input,output: text;
 
//процедура поиска двух одиноковых елементов в массиве
procedure odn(a: myarray;  var i3,j3,k3,d3: integer);
var  por,i1,j1,i2,j2,k1,l1:integer;
begin
 
      for i1:=1 to n do begin
          for j1:=1 to m do begin
              por:=a[i1,j1];
 
              for i2:=i1 to n do begin
                 for j2:=1 to m do begin
                   if (por=a[i2,j2])and(i1<>i2)and(j1<>j2) then begin
                      i3:=i1; j3:=j1; k3:=i2;d3:=j2; exit
                   end;
                 end;
             end;
          end;
      end;
 
 
end;
 
begin
    assign(input,'input.txt');
    assign(output,'output.txt');
    reset(input);
     while not eof(input) do begin
        for i:=1 to n do begin
         for j:=1 to m do begin
         read(input,a[i,j]);
         end;
        end;
     end;
    rewrite(output);
    odn(a,io,jo,ko,po);
    write(output,io,jo,'   ',ko,po);
    close(input);
    close(output);
 
end.