Вопрос по информатике:

1. Дано число К. Напечатать все трехзначные числа, сумма цифр которых равна данному числу. Program Ex1;
var k,i, p1,p2,p3:integer;
Begin
Writeln('vvedite k');
readln(k);
For i:= 100 to 999 do
Begin
p1:=i div 100;
p2:= (i div 10) mod 10;
p3:=i mod 10;
if(p1+p2+p3)= K then
writeln(i);
readln;
end;
end. почему программа не идет? где ошибка? помогите пожалуйста