Паскаль. Подпрограммы (внешние)

[Sanek19]

Добрый день, помогите пожалуйста решить задачу на Паскеле. Без нее не получу зачет(((

Дано натуральное число N. Найти и вывести все числа в интервале от 1 до N-1, у которых сумма всех цифр совпадает с суммой данного числа. Если таких чисел нет, то вывести слово "нет". Пример N=44. Числа 17,26,35. Расчет суммы цифр числа организовать в виде внешней подпрограммы.

[IT-man]

var NN,i:integer;
function SD(n:word):integer;
begin
sd:=0;
while n<>0 do begin
 sd:=sd+n mod 10;
n:=n div 10;
end;
end;
begin
Readln(nn);
for i:=1 to nn-1 do
if sd(i)=sd(nn) then write(i:4);
readln;
end.

[Sanek19]

А с основным кодом не подскажите?((

[Sanek19]

"Спасибо большое, тока вот не могу разобраться, выдает ошибку в функции: Error 88..((("