обработка массивов данных

uses crt;
const n=5;
type mnoz=0..9;
function Sravn(a,b:longint):boolean;
var m1,m2:set of mnoz;
    k1,k2:byte;
begin
m1:=[];{первое множество пустое}
while a>0 do{пока число не ноль}
  begin
   k1:=a mod 10;{отделяем по одной цифре с конца}
   include(m1,k1);{вставляем в множество}
   a:=a div 10;{берем число без последней цифры и все повторяем}
  end;
m2:=[];{то же со вторым числом}
while b>0 do
  begin
   k2:=b mod 10;
   include(m2,k2);
   b:=b div 10;
  end;
if m1=m2 then Sravn:=true{если множества состоят из одинаковых цифр}
else Sravn:=false;
end;
var x:array[1..n] of longint;
    i,k:byte;
begin
clrscr;
writeln('Vvedite ',n,' chisel:');
for i:=1 to n do
  begin
   write('x[',i,']=');
   readln(x[i]);
  end;
clrscr;
writeln('Posledovatelnost:');
for i:=1 to n do
write(x[i],' ');
writeln;
k:=0;
writeln('Rezultat:');
for i:=2 to n do
if Sravn(x[i],x[1])then{сравниваем все с первым, если совпадают,выводим}
  begin
   write(x[i],' ');
   k:=1;
  end;
if k=0 then write('Takih chisel net!');
readln
end.