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

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.