[CyberDaemon]

if P>0 then) »

Закрывающая скобка - опечатка.
А вообще, после then может быть только один оператор. Если больше - значит нужна конструкция begin-end.
Т.е.:

Код:

If <условие> then
   begin
      ...;
      ...;
      ...;
    end
else 
   begin
      ...;
      ...;
      ...;
    end;

[Miko]

Спасибо большое. Вы мне очень помогли.
У меня такой вопрос,в некоторых случаях нельзя использовать данную функцию.
Ну а бывает такое что нужно знать,сработала другая функция или нет.

Как быть в это случае?
Не даёт функция обратного значения,как мне сделать исключение?
Я не так давно программирую по этому многого не знаю.
В книгах конечно есть все это описание но все лучше когда человека можно расспросить.
Книга не умеет отвечать на вопросы и рассуждать.

За ранее спасибо.

[CyberDaemon]

Я не совсем понял, что нужно. Можно поконкретнее, или пример?