PROGRAM PROG13;
{$U+    Copyright (C), 1985 by Lyle Faurot.  All rights reserved.

    New Topics: Strings
                String Operations
                String Functions

}

CONST
   S_Test = 'Test String';

VAR
   S3  :  String[3];
   S5  :  String[5];
   S8  :  String[8];
   S14 :  String[14];

BEGIN
  S3 := S_Test;
  WriteLn(S3);

  S8 := S_Test;
  WriteLn(S8);

  S14 := S_Test;
  WriteLn(S14);
END.