Сост.програму вычислить кол-во 3-х значных чисел у которых цифры упорядочены строго по возрастанию

Спасибо

 var   k,p,v,t,i: integer; begini:=100;k:=0;while i <> 1000 do beginp:=i div 100;v:=(i div 10) mod 10;t:=i mod 10;if (t > v) and (p < v) theninc(k);inc(i);end;writeln(k);end.