11 lines
229 B
Text
11 lines
229 B
Text
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.
|