Pascal abc Дан массив А[1..2,1..15]. Известно, что среди его эл-тов 2 и только 2 равных. Напечатать их индексы.

Var a:array[1..2, 1..15] of integer;
    i, m, j, n:integer;
   
begin
 for m:=1 to 2 do
  begin
  for n:=1 to 15 do
    begin
    for i:=m to 2 do
      begin
       for j:=n+1 to 15 do
       if a[m, n]=a[i, j] then writeln(Индексы первого числа , m, , n, , Индексы второго числа , i, , j);
       end;
    end;
  end;
end.