Найти числа, встречающиеся среди элементов массива X более одного раза - PascalABC.NET

const n=10;
var x:array[1..n] of integer;
    m:set of integer;
    i,j,k:byte;
begin
writeln(' ');
for i:=1 to n do
 begin
  x[i]:=i*i-5*i+4;
  write(x[i]:4);
 end;
writeln;
writeln('Числа которые встречаются более 1 раза');
m:=[];
for i:=1 to n-1 do
 begin
  j:=i+1;
  k:=0;
  while (j<=n)and(k=0) do
  if(x[j]=x[i])then 
   begin
    k:=1;
    if not(x[j] in m) then
     begin
      write(x[j]:4);
      m:=m+[x[j]];
     end
   end  
  else inc(j);
 end;
writeln 
end.