Главное меню delphi

end
точка с запятой не ставится. Если же 
служебное слово 
else
не используется, то точка с запятой должна быть. 
Как же действует этот оператор? Вначале вычисляется значение условного выражения которое 
стоит между служебными словами 
IF
и 
THEN
. Если получается результат «истина» (True), то вы-
полняется оператор следующий за служебным словом 
THEN
, т.е. <оператор1>, а <оператор2> про-
пускается. Если же результатом вычисления будет «ложь» (False), то наоборот <оператор1> будет 
пропущен, а <оператор2> будет выполнен. Если вместо логического выражения будет использована 
переменная логического типа, то если она будет иметь значение True, то выполнится <оператор1>, а 
если ее значение будет равно False, то <оператор2>. Напишем оператор смены значения логической 
переменной. 
Var
k : Boolean; 
Begin
IF
k
Then
k := False
Else
k := True; 
End
; 
если переменная k имеет значение «истина», то ей присваивается значение «ложно» и наоборот. 
В качестве более серьезного примера использования условного оператора рассмотрим функ-
цию, которая вычисляет арккосинус числа. Как известно, косинус не может быть больше единицы, 
поэтому арккосинус от числа больше единицы не существует. Именно это условие и проверяется в 
первом условном операторе. Если передаваемое в функцию число больше единицы, то логическое 
выражение принимает значение «истина» (True) и выполняется оператор стоящий после служебного 
слова 
ELSE.
Function
arccos(x : Extended) : Extended; 
 Begin 
IF
ABS(x) > 1
THEN
begin
MessageDlg('Wrong Number', mtConformation, mbOk); Exit; 
end
; 
IF
x=0