Постойте в Паскале сложный цикл

Объяснение: Для решения этой задачи используйте переменные: Р-сумма денег, которая есть на руках; х- цена товара; k- кол-во товара; s-общая стоимость покупки (начальное значение s=0); d- сумма, на которую будет повышаться общая стоимость покупок. Значение имеющийся у него суммы денег вводит пользователь. Необходимо повторять запрос цены и кол-ва выбранного товара, вычислять его стоимость, суммировать ее с общей стоимостью покупок и выводить результат на экран до тех пор, пока она не превысит имеющийся у него сумму. В этом случае нужно вывести сообщение о том, на сколько будет превышена сумма покупки. решение через цикл repeat

Романтика, аниматор, форманта, романтик, иномарка, фанариот, Митрофан, наркомат,камфора, натирка, каротин, тиранка, фонарик, Кириана, инфаркт, картина, ритмика,Никифор, марафон, Матрона, маринка, макитра, формиат, , трофика, маниока, комната,мартини, , антимир, матрона, окраина, фанатик, акроним, миканит, октарин, формант,намотка, аромат, мантра, фианит, Африка, кантор, Анфима, катион, микрон, фантик,тарник, кианит, фортка, комара, ратник, нарком, арника, камора, анатом, кармин,фактор, морфин, фоника, аконит, мирика, Никита, ракита, трафик, картон, форинт,кифара, Марина, афронт, кантри, Трифон, фирман, иранка, катран, формат, кафтан,тонарм, фантом, тиамин, Трофим, каинит, тоника, фараон, Карина, Моника, Мартин,амфора, карман, нотка, ринит, фомка, франт, Марфа, морфа, антик, Коран, матка,фанат, канат, мирка, танка, трико, финик, корма, мотка, октан, форма, Макар,мирок, рамка, томик, актор, Мирон, тариф, Ирина, кафир, кофта, марка, накат,роман, митра, фитин, минор, тоник, икота, карат, норка, тиара, Фаина, Аарон,Марта, отара, карма, манок, факир, нарта, ротик, франк, манто, тиран, крона,фиакр, фронт, интим, карта, маори, Марат, мотик, ритон, Афина, макар, нимфа,финка, катар, Мотра, рифма, фанки, актин, коата, мирон, нитка, таран, аорта,Томна, фанта, амати, икаит, ранка, Тарка, Марка, Роман, икона, комар, ратин,Арина, нарик, манка, норма, аркан, камин, инока, мора, факт, крон, така, торн,Рита, аком, арфа, крот, Мира, Ника, рака, трак, фтор, мара, окра, тмин, фора,рама, фанк, кмин, Тара, трио, финт, Ирак, мрак, фант, афта, каон, коиф, рана,трок, фирн, Мина, ИКАО, Кара, кома, нора, рант, арат, Каин, Нара, фара, арка,Кама, Кима, фарт, нота, тина, Фома, киот, Крит, тори, фата, морф, ринк, Аким,Арон, Кира, мира, натр, торф, кора, окат, ритм, атом, кана, танк, фиат, корм,кант, миро, рами, тара, корт, маки, РАМН, кофр, Марк, мина, омар, кара, Мана,мирт, нома, трон, фита, арак, кран, оним, форт, амин, Нора, крат, март, икра,Фока, кино, крин, мион, офит, рота, тора, фрак, тир, кир, Мир, рак, кор, фан,Кан, тан, мот, акр, ион, кат, риф, Ток, акт, кот.
НОРМАЛЬНО?