Найти все трехзначные числа, расположенные между заданными трехзначными числами А и B (A

var
i,a,b,k:integer;
begin
repeat
write('Введите A: ');
readln(a);
until (a>=100) and (a<=999);
repeat
write('Введите B: ');
readln(b);
until (b>=100) and (b<=999);
k:=0;
for i:=a to b do
if (((i div 100)+((i div 10) mod 10)+(i mod 10))<=11) then
begin
write(i,' ');
inc(k);
end;
if k=0 then writeln('Таких чисел в диапазоне от ',A,' до ',b,' нет!!!')
end.