Помогите с задачей на Паскале по информатике, пожалуйста.

[niancell]

Вывести все числа от N до M, сумма цифр которых равна (k+7), где k – номер варианта.

N и M вводится.
k - подставьте любое число.
Язык - Pascal.

[Stilet]

сумма цифр

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

Вывести все числа от N до M

for i:=n to m do begin
 q:=sum(i); if q=(k+7) then write(i:5);
end;

Где все переменки целочисленные.
Идея понятна?

[Poma][a]

a:=a div 10;

Описочка.. Подразумевалось x := x div 10;

[niancell]

Сообщение от Stilet

[CODE]
Идея понятна?

Да, спасибо большое.

[Stilet]

Описочка

Точняк... )