Помогите пожалуйста с програмой в lazarus

В многострочном текстовом поле Memo1 содержатся действительные числа
купленных в магазине SuperMag товаров (не больше 10). Магазин стимулирует покупателей
системой скидок:
для другого купленного товара – скидка 2% от его цены;
для третьего купленного товара – скидка 5% от его цены;
для четвертого купленного товара – скидка 10% от его цены;
для пятых и последующих товаров – скидка 20% от их цены.
Задание:
1) Выведите в многострочное текстовое поле Memo2 исправленные с учетом
скидок стоимости товаров;
2) Вычислите суммарную стоимость всех товаров; выведите результат в те же поля
Memo2 с ответным комментарием.
Обратите внимание, что при вводе десятичных дробей в текстовом поле используют
ком, а в коде программы - точку (например, x[i]<=9.2)
Форма виновата
соответствовать предоставленному
образец.
купленных в магазине SuperMag товаров (не больше 10). Магазин стимулирует покупателей
системой скидок:
для другого купленного товара – скидка 2% от его цены;
для третьего купленного товара – скидка 5% от его цены;
для четвертого купленного товара – скидка 10% от его цены;
для пятых и последующих товаров – скидка 20% от их цены.
Задание:
1) Выведите в многострочное текстовое поле Memo2 исправленные с учетом
скидок стоимости товаров;
2) Вычислите суммарную стоимость всех товаров; выведите результат в те же поля
Memo2 с ответным комментарием.
Обратите внимание, что при вводе десятичных дробей в текстовом поле используют
ком, а в коде программы - точку (например, x[i]<=9.2)
Форма виновата
соответствовать предоставленному
образец.