В одномерном массиве исключить все элементы

uses crt;
var  a:array[1..100] of integer;
     n,i,j,k,p,x:integer;
     c:byte;
     m:set of byte;
begin
ClrScr;
randomize;
write('Размер массива n=');
readln(n);
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(200);
  write(a[i]:4);
 end;
writeln;
i:=1;
while i<=n do
 begin
  x:=a[i];{проверим на повтор цифр}
  m:=[];
  k:=0;
  p:=0;
  while x>0 do
   begin
    c:=x mod 10;
    k:=k+1;{считаем все цифры}
    if not (c in m) then
     begin
      p:=p+1;{считаем которых еще не было}
      m:=m+[c];
     end;
    x:=x div 10;
   end;
  if p<k then{если еще не было меньше чем всего, то есть повторы}
   begin
    for j:=i to n-1 do{сдвигаем массив влево, удаляем элемент}
    a[j]:=a[j+1];
    n:=n-1;{уменьшаем размер массива}
   end
  else i:=i+1;
 end;
if n=0 then write('Все элементы удалены!')
else
 begin
  writeln('Массив после сжатия:');
  for i:=1 to n do
  write(a[i]:4);
  writeln;
  writeln;
  for i:=1 to n-1 do{сортируем массив по убыванию обменом}
  for j:=i+1 to n do
  if a[i]<a[j] then
   begin
    x:=a[i];
    a[i]:=a[j];
    a[j]:=x;
   end;
  writeln('Массив по убыванию:');
  for i:=1 to n do
  write(a[i]:4);
 end;
readln
end.