задача на массивы в Паскале=)

[lotrcorp]

Помогите пожалуйста...очень нужна помощь...:


Дан одномерный массив, состоящий из n натуральных чисел.
Сформировать новый массив включив в него только те элементы заданного, сумма цифр которых равна натуральному числу К.
Решить используя функцию определяемую программистом(ф.о.п.)

Заранее благодарю...

[Chudo4258]

program MASS;

function sum(x:integer):integer;
var s:integer;
begin
 s:=0;
 while x<>0 do
  begin
   s:=s + (x mod 10);
   x:= x div 10;
  end;
 sum:=s;
end;

var i,n,k,j:integer;
    A,B:array [1..100] of integer;
begin
Writeln('Zapolnenie massiva:');
write('kol-vo elem. v massive: '); Readln(n);
for i:=1 to n do
 begin
  write('A[',i,']= '); readln(A[i]);
 end;
writeln;
write('K= ');readln(k);

j:=1;
for i:=1 to n do
 if sum(A[i])=K then begin
                         B[j]:=A[i];
                         inc(j);
                        end;

for i:=1 to j-1 do
 writeln('B[',i,']= ', B[i]);
 readln
end.