module Main;
var
	s,r: string;
	c: array 60 of char;
begin
	s := "plain string";r := s; writeln(s);
	(* copy string to array of char *)
	copy(s,c);c[0] := 'P';
	(* copy array of char to string *)
	copy(c,r);writeln(r);
end Main.