Парни помогите с лабой по ОаиП

Вообщем проблема такая надо написать две программы плачу прилично!
Задания:
Решить задачи с использованием модуля (unit)
1. Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 3% предоставляется в том случае, если сумма покупки больше 500 руб., в 5% — если сумма больше 1000 руб.

2.Составить программу, которая в массиве A[N] находит второе по величине число (вывести на печать число, которое меньше максимального элемента массива, но больше всех других элементов).

Кто сможет сделать добавтесь в скайп gimpro

 

Ап срочно!

 

ап