Дан целочисленный двумерный массив. Известно, что среди его элементов два и только два равны между собой. Напечатать их индексы

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j, x, w, h: Integer;
  a: array[0..3, 0..5] of Integer;
  s: String;
begin
  Randomize;
  s := '';
  for i := 0 to High(a) do
  begin
    for j := 0 to High(a[i]) do
    begin
      a[i,j] := Random(90) + 10;
      s := s + IntToStr(a[i,j]) + ' ';
    end;
    s := s + #13#10;
  end;
 
  h := Length(a);
  w := Length(a[0]);
 
  for i := 0 to w * h - 1 do
  begin
    x := a[(i-1) div w, (i-1) mod w];
    for j := i + 1 to w * h - 1 do
      if x = a[(j-1) div w, (j-1) mod w] then
      begin
        ShowMessage(Format(s + 'a[%d,%d] = a[%d,%d] = %d',
                           [(i-1) div w, (i-1) mod w, (j-1) div w, (j-1) mod w, x]));
        Exit;
      end;
  end;
  ShowMessage(s + 'íåò òàêèõ');
end;

procedure TForm1.Button1Click(Sender: TObject);
type
  ta = array[0..0] of Integer;
  pa = ^ta;
var
  i, j, w, h: Integer;
  a: array[0..3, 0..5] of Integer;
  s: String;
  aa: pa;
begin
  {...}
 
  aa := @a;
 
  for i := 0 to w * h - 2 do
    for j := i + 1 to w * h - 1 do
      if aa^[i] = aa^[j] then
      begin
        ShowMessage(Format(s + 'a[%d,%d] = a[%d,%d] = %d',
                           [(i-1) div w, i mod w,
                            (j-1) div w, j mod w, aa^[i]]));
        Exit;
      end;
  ShowMessage(s + 'íåò òàêèõ');
end;