MODULE Test28;

IMPORT Out;

TYPE
  Name = ARRAY 16 OF CHAR;

VAR
  key : ARRAY 128 OF Name;
  name : Name;

BEGIN
  IF key[0] > name THEN Out.Ln; END;
END Test28.

Тест сравнения массивов символов.