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

    New Topics:  Referencing specific characters in strings

}

CONST
   S_Test = 'TURBO';

VAR
   S8  :  String[8];

   I   :  Integer;

BEGIN

  REPEAT
    S8 := S_Test;
    WriteLn(S8);
    Write('Enter position number: ');
    ReadLn(I);
    WriteLn(S8[I]);
    WriteLn;
  UNTIL I < 0;

END.