var
  CharA: Char;
  StringA, Str: string;
begin
  CharA := 'A';

  //Char converts to string implicitly
  StringA := CharA;
  //StringA is 'A'

  Str := 'character ' + CharA;
  //Str is 'character A'

  WriteLn('stringA is ''', StringA, '''');
  WriteLn('str is ''', Str, '''');
end.