Не работает программа (помощь нужна срочно)

[1GeRalT1]

Попоробовал написать программу по решению лабораторной работы в lazarus. Код вроде правильный, но программа не работает.
Ссылка на скрин формы с коментариями: http://upwap.ru/1439771
Ссылка на программу: http://upwap.ru/1439749
Здать программу нажно будет завтра.
Нужно помочь исправить код, чтобы работала. Заранее спасибо.

[Ism]

В таких темах обычно надо писать цену вопроса. Глупость и срочность стоят денег.

Добавлено спустя 8 минут 24 секунды:

Рабочий код

Код: Выделить всё

val(Edit1.Text, P, kod1);
val(Edit2.Text, Fch, kod2);
val(Edit3.Text, h, kod3);
val(Edit4.Text, S, kod4);
val(Edit5.Text, t, kod5);

[1GeRalT1]

Большое спасибо. Просто программа легкая, исправить думал не очень долго будет для опытного программиста.

[Ism]

Такое отношение , первый шаг в мир быдлокода Смотрите, чтоб не вошло в привычку