Зарезервированное слово End используется с:
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;