Удалить из последовательности числа. продублировать числа

  program main;
  
  type TByte=array[0..9] of Byte;
  type TArray=array[1..10000] of Integer;
  
  {Заполняет массив значениями value}
  procedure FillArray(A:TByte; size:Integer; value:Integer);
  var i:Integer;
  begin
    for i:=1 to size do
      A[i]:=value;
  end;
  
  {Тестирует число по условию задачи.
  0 - все цифры разные (удалить число), 1 - есть одинаковые (пропустить), 
  2 - дублировать. Каждый элемент массива index[0..9] содержит количество 
  соответствующих цифр в числе, например index[3]=5 - в числе пять троек}
  function TestNumber(n:Integer):Integer;
  var index:TByte;
      status:Byte;
      i:Integer;
      temp:real;
  begin
    status:=0;
    TestNumber:=status;
    FillArray(index,High(index)-Low(index),0);
    while n>0 do
      begin
        inc(index[n mod 10]);
        n:=n div 10;
      end;
    for i:=0 to 9 do
      if index[i]>1 then
        begin
          status:=1;
          TestNumber:=status;
          break;
        end;
    if (status=0) then exit;
    temp:=1;
    for i:=1 to 9 do
      if index[i]>0 then
        temp:=temp*exp(ln(i)*index[i]);
    if (((trunc(temp)+1) mod 14)=0) then 
      TestNumber:=2;
  end;
  
  {Удаление числа из массива}
  procedure delete(var A:TArray; var n:Integer);
  var k,m:Integer;
  begin
    k:=1;
    while k<=n do
      if TestNumber(A[k])=0 then
        begin
          for m:=k to n-1 do
            A[m]:=A[m+1];
          n:=n-1;
        end
       else
        k:=k+1;
  end;
  
  procedure DreadMagic(var A:TArray; var B:TArray; var n:Integer);
  var k,i:Integer;
  begin
    k:=0;
    for i:=1 to n do
    case TestNumber(A[i]) of
      0: ; {do nothing}
      1: begin
            k:=k+1;
            B[k]:=A[i];
         end;
      2: begin
            k:=k+1; B[k]:=A[i];
            k:=k+1; B[k]:=A[i];
         end;
    end;
    n:=k;
  end;
  
  procedure Input(var A:TArray; var n:Integer);
  var i:Integer;
  begin
    write('Enter n: ');
    read(n);
    writeln('Enter ',n, ' elements:');
    for i:=1 to n do
      read(A[i]);
  end;
  
  procedure Output(A:TArray; n:Integer);
  var i:Integer;
  begin
    for i:=1 to n do
      write(A[i]:6);
  end;
  
  const T:array[1..7] of Integer=(987,4562,1123,59234,55768,876,1172);
  var A:TArray;
      B:TArray;
      i,n:Integer;
  begin
    n:=0;
    {for i:=1 to n do
      A[i]:=T[i];}
    Input(A,n);
    DreadMagic(A,B,n);
    Output(B,n);
  end.