Определить количество месяцев для финансовых накоплений - Pascal ABC

Формулировка задачи:

Условие: Каждую неделю Саша получает сумму в размере S рублей на личные расходы, из них он тратит Х% на сладости. Остальные деньги он откладывает для покупки компьютера. Сколько месяцев потребуется Саше копить деньги, если на день рожденье бабушка с дедушкой ему подарили 3000 рублей, а мама с папой – 10000 рублей. Стоимость компьютера – 970$. Вроде написала, но такое ощущение, что в цикл не заходит программа. Вот код:

program Komp; 
var summa,x,d,konets,b,m,new,y,ost, it: real; 
begin 
writeln ('Введите сумму карманных денег Саши на неделю: '); 
readln (summa); 
writeln('Введите процент его трат на сладости:: '); 
readln(x); 
m:=10000; // подарок родителей 
b:=3000; // подарок бабушки с дедушкой 
y:=1; 
writeln('Введите стоимость одного доллара:: '); 
readln(d); 
konets:=(970*d) - (m+b); // итоговая сцмма, необходимая саше 
writeln ('Денег надо - ',konets); 
ost:=(x*summa)/100; // сколько осталось карманных денег 
new:=summa-ost; // остаток карманных денег 
it:=new; 
while (konets<=it) do 
begin 
it:= it+new; 
y:= y+1; 
end; 
writeln ('Количество недель: ',y); 
end.

Решение задачи: «Определить количество месяцев для финансовых накоплений»

Листинг программы

while (konets >= it) do

Объяснение кода листинга программы

Переменная it инициализируется значением 1.
Затем происходит проверка условия while (konets >= it) do, где konets - это неизвестная переменная, а it - это известная переменная, которая была инициализирована значением 1.
Если условие истинно, то выполняется блок кода внутри цикла while.
После выполнения блока кода, переменная it увеличивается на 1.
Цикл while повторяется до тех пор, пока условие konets >= it не станет ложным.
Когда это происходит, цикл while завершается.
Код не содержит других вложенных списков.