Напечатайте индексы всех совпадающих элементов произвольного двумерного массива - Pascal ABC

program lab5_11;
uses crt;
var
  i,j,u,y:integer;
  a:array[1..4, 1..4] of integer;
begin
  clrscr;
  for i:=1 to 4 do
    for j:=1 to 4 do
      begin
        writeln('введите элемент массива (',i,',',j,')');
        readln(a[i,j]);
      end;
  writeln('Получившийся массив: ');
  for i:=1 to 4 do
    begin
      for j:=1 to 4 do
        begin
          write(a[i,j],' | '); 
        end;
      writeln;
    end;
  for i:=1 to 4 do
    begin
      for j:=1 to 4 do
        begin
          for u:=1 to 4 do
            begin
              for y:=1 to 4 do
                begin
                  if (a[i,j] = a[u,y]) and ([i,j]<>[u,y])  then
                    begin
                      writeln('Элемент ',a[i,j],' с индексом (',i,',',j,'), повторяется с элементом ',a[u,y],' индекс которого (',u,',',y,')');
                    end
                  else if (a[i,j] = a[u,y]) and ((i=y) and (j=u)) and ((i<>j) and (u<>y)) then
                    begin
                      writeln('Элемент ',a[i,j],' с индексом (',i,',',j,'), повторяется с элементом ',a[u,y],' индекс которого (',u,',',y,')');
                    end;
                end;
            end;
         end;
    end;
  readkey;
end.