Найти количество страниц в книге

[HIP-H0P]

Каждая страница пронумерована. Сумма цифр номеров страниц - N. Всего страниц не больше 9999. Найти количество страниц в книге.
Написал быстро, на сонную голову. Ответ получается ооочень большим. Решенную программу мне не надо, укажите на явные ошибки, может я вообще что-то кардинально не правильно делаю.
Идея заключается в том, что бы каждый шаг к определенной переменной прибавлять сумму цифр страницы, до тех пор пока не будет равна N.

program p1;
var
str, z, N,m1,m2,n1,n2,n3,a,x:integer;
begin
writeln('Vvedite N');
Readln(N);
str:=0; z:=0; a:=0; x:=1;
While (a <> N) do
begin
n1:=(x div 10); n2:=(x mod 10); n3:=(x div 10 mod 10);
If (x <= 9) then a:=a+x;
If (x >= 10) and (x <= 99) then a:=a+n1+n2;
If (x>=100) then a:=a+n1+n2+n3;
str:=str+1;
x:=x+1;
end;
writeln(str);
readln;
end.

[HIP-H0P]

Сейчас заметил особенность, что вводить любое N нельзя. Взял книжку, посчитал вручную сумму цифр 10 страниц, ввел, и вывел правильное число страниц. Получается программа работает?