Вывести номера одинаковых элементов массива в программе паскаль

вывести номера одинаковых элементов массива в программе паскаль

  • program znanija_com;
    const
       numArray = 3;
    type
       tArray = array[1..numArray] of integer;
    var
       arr : tArray;
       i, j, temp : integer;
    begin
    for i:=1 to numArray do begin

        writeln('Введите элемент массива ', i);
        readln(arr[i]);
      end;
    for i:=1 to numArray do begin
      for j:=i+1 to numArray do begin
        if arr[i] = arr[j] then writeln('Значение элемента ', i, ' совпадает со значением эелемента ', j);
      end;
    end;
    readln();
    end.