PROGRAM TURBO_Pascal_strings;

VAR first_name   : STRING[10];
    initial      : CHAR;
    last_name    : STRING[12];
    full_name    : STRING[25];

BEGIN  (* main program *)
  first_name := 'John';
  initial := 'Q';
  last_name := 'Doe';
  WRITELN(first_name,initial,last_name);
  full_name := first_name + ' ' + initial + ' ' + last_name;
  WRITELN(full_name);
END.  (* main program *)