Помогите пожалуйста.
Нужно задать массив целых чисел. Вывести на экран только те значения элементов массива, которые встречаются в нем более одного раза, при этом каждое найденное значение должно быть распечатано столько раз, сколько оно встречается.

program masof;var ar: array of integer;i, j, temp, N: integer;beginreadln(N);setlength(ar, N+1);for i:=1 to N do begin readln(ar[i]); end;for i:=1 to N do begin  temp:=0;  for j:=1 to N do begin if ar[j]=ar[i] then inc(temp); end; if temp>1 then write(ar[i], ' ');end;end.