Зарезервированное слово End

Зарезервированное слово End используется с Begin, Case, Record, Object и служит закрывающей операторной скобкой для блока кода.

Замечание:

  • Begin — для создания составного оператора
  • Case — для создания оператора варианта
  • Record — при объявлении записи
  • Object — при объявлении объекта
  • Asm — для вызова встроенного ассемблера

Пример:

(* Begin *)
If First < Last Then
Begin
 Temp:=First;
 First:=Last;
 Last:=Temp;
End;

(* Case *)
Case Ch Of
  'A'..'Z', 'a'..'z' : WriteLn('Буква');
  '0'..'9'           : WriteLn('Цифра');
  '+', '-', '*', '/' : WriteLn('Оператор');
Else WriteLn('Специальный символ');
End;

(* Record *)
Type Class  = (Num, Dat, Str);
     Date   = Record
      D, M, Y : Integer;
              End;
      Facts = Record
         Name : String[10];
    Case Kind : Class Of
           Num : (N : Real);
           Dat : (D : Date);
           Str : (S : String);
              End;

(* Object *)
Type LocationPtr = ^Location;
        Location = Object
              X, Y : Integer;
    Procedure Init (PX, PY : Integer);
     Function GetX : Integer;
     Function GetY : Integer;
                   End;

(* Asm *)
Asm
 mov ax, 01h
 mov cx, 00h
 int 10h
End;