MODULE Test;
+IMPORT Out;
+
TYPE
- Rider = RECORD i : INTEGER END;
+ Name = ARRAY 16 OF CHAR;
-PROCEDURE X;
- VAR
- r : Rider;
-BEGIN
- r.i := 666;
-END X;
+VAR
+ key : ARRAY 128 OF Name;
+ name : Name;
BEGIN
- X;
+ IF name > name THEN Out.Ln; END;
END Test.
