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

program znanija_com;const   numArray = 3;type   tArray = array[1..numArray] of integer;var   arr : tArray;   i, j, temp : integer;beginfor 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.