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

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.