{$codepage utf8} VAR cad1:ansistring; cad2:unicodestring; BEGIN cad1:=StringOfChar('x',50); cad2:=StringOfChar('z',50); Writeln(cad1); Writeln(cad2) END.