Паскаль. дано натуральное число n. найти и вывести все числа в интервале от 1 до n - 1, у которых сумма всех цифр совпадает с суммой цифр данного числа. если таких чисел нет, то вывести слово "нет". пример: n = 44. числа: 17, 26, 35.

Не уверен может не работать
var
a,n,sn,s,i,n1:integer;
begin
readln(n);
n1:=n;
repeat
sn:=sn+n1 mod 10;
n1:=n1 div 10;
until n1=0;
for i:=1 to n-1 do
begin
a:=i;
s:=0;
repeat
s:=s+a mod 10;
a:=a div 10;
until a=0;
if s=sn then write(i,' ');
end;
readln;
end.