Определить стоимость товара - Pascal ABC

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

Помогите пожалуйста составить с циклом повтора repeat- until вот эту программу. Вот задача:С клавиатуры вводится цена и вес товара (вещественные значения). Определить стоимость товара. Если стоимость превысила 1000 руб, то сделать скидку в размере 10%. Вывести все промежуточные результаты.

var St,Skidka: real;
begin
  writeln('Вычисление стоимости покупки с учётом скидки.');
  writeln('Введите сумму покупки и нажмите <Enter>');
  write('-> '); readln(St);
  IF St>1000 then
  begin
   Skidka:=St-St*0.01; 
    writeln('Вам предоставляется скидка 10%');
    writeln('Сумма покупки с учётом скидки: ',Skidka:0:2,' руб.');
  end
  else
  writeln('Вам не предоставлется скидка');  
  writeln('Сумма вашей покупки: ',St:0:2,' руб.')
end.

Решение задачи: «Определить стоимость товара»

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

 else
   begin
    writeln('Вам не предоставлется скидка');
    writeln('Сумма вашей покупки: ',St:0:2,' руб.');
   end;

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

Проверка условия - Если скидка не предоставлена, то выполняется блок кода, начиная с этой строки и заканчивая следующей
Вывод сообщения об отсутствии скидки - На экран выводится сообщение о том, что покупателю не предоставлена скидка
Вывод сообщения о стоимости покупки - На экран выводится сообщение о стоимости покупки, используя функцию writeln, с указанием суммы покупки в рублях, округленной до двух знаков после запятой, и с указанием символа рубля в качестве разделителя между числами и строкой руб.
Завершение блока кода - Конец блока кода, выполняемого при отсутствии скидки, обозначен точкой с запятой и двумя символами end;