Помогите с массивом

[Dimati87]

Задан целый вектор A(n), n>=12. Сформировать вектор Х из тех элементов вектора А, сумма цифр которых в десятичной записи больше заданного числа N.
вот такая задача не могу понять как сделать.

[alex_fcsm]

var x,a:array[1..12] of integer;
    i,sum,k,n,temp:integer;
    
    
begin
writeln('n');
readln(n);
write('A:');
for i:=1 to 12 do
 begin
 a[i]:=random(1000);
 write(a[i],' ');
 end;
writeln;
k:=0;
writeln;
write('X:');
for i:=1 to 12 do
 begin
    temp:=a[i];
    sum:=0;
   while  temp>0 do
    begin
      sum:=sum+temp mod 10;
      temp:=temp div 10;
    end;
    if sum>n then begin
                    inc(k);
                    x[k]:=a[i];
                    write(x[k],' ');
                  end;
 end;
readln;
end.