Срочно! Помогите пожалуйста
Информатика 9 класс
Задача 3.
Составить программу планирования закупки товара в магазине на сумму, не превышающую заданную величину.
Обозначим через X,K-соответствующую цену и количество товара, а через P-заданную предельную сумму, через S- общую стоимость покупки. Значение предельной суммы считывается с клавиатуры. Необходимо повторять запрос цены и количества выбранного товара, вычислять его стоимость, суммировать ее с общей стоимостью и выводить результат на экран до тех пор, пока она не превысит предельную сумму P.

program Goods;

var x,k,p,s: word;

begin

writeln('Введите предельную сумму:');

readln(p);

s:=0;

while s<=p do

begin

writeln('Введите стоимость вещи:');

readln(x);

writeln('Введите количество:');

readln(k);

s:=s+x*k;

writeln('Сумма затрат:', s);

writeln('Предел суммы:', p)

end;

writeln('Вы превысили сумму покупок')

end.