Да... совсем Вы, сударь, не разобрались с написанием подпрограмм... Понимаете, в функции Prost s - это входной параметр, который Вы должны передать из внешнего тела программы. Заканчиваться же функция должна строкой типа
Prost:=...
А у Вас? В общем, мой Вам совет: не откладывая до конца семестра, прямо сейчас беритесь за книжки и разбирайтесь с азами программирования.
P.S. Да, а программу я, как и обещал, сделаю.