Сформировать вектор Х из тех элементов вектора А, сумма цифр которых в десятичной записи больше заданного

[Dimati87]

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

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.

[SeRhy]

var x,a:array[1..12] of integer;
    i,n,j,cod,sum,temp,z:integer;
    s,stemp:string;
begin
  write('N='); readln(n);
  randomize;
  z:=0;
  write('A = ');
  for i:=1 to 12 do
  begin
    a[i]:=random(1000);
    write(a[i],' ');
    str(a[i],s);
    temp:=0;
    stemp:='';
    sum:=0;
    for j:=1 to length(s) do
    begin
      stemp:=copy(s,j,1);
      val(stemp,temp,cod);
      sum:=sum+temp;
    end;
    if sum>n then
    begin
      z:=z+1;
      x[z]:=a[i];
    end;
  end;
  writeln;
  write('X = ');
  for i:=1 to z do write(x[i],' ');
  readln;
end.