Дан массив целых чисел из N (1<=N<=15) элементов, заполненный числами,введенными с клавиатуры. Удалить из него все элементы,которые состоят из одинаковых цифр (включая однозначные числа) - Pascal(Паскаль)

uses crt;
var a:array[1..15] of integer;
      i,k,j,n:integer;
begin
 clrscr;
 writeln('n ');
 readln(n);
 for i:=1 to n do
   readln(a[i]);
 
 
  for i:=1 to n-k do
 write(a[i],' ');
 
i:=0;
k:=0;
repeat
 i:=i+1;
 if (a[i]<10)or(a[i] mod 10=a[i] div 10)then
  begin
    for j:=i to n-k-1 do
      a[j]:=a[j+1];
      k:=k+1;
  end;
until(i>=n-k);
writeln;
for i:=1 to n-k do
 write(a[i],' ');
 readln
end.