{$codepage UTF8} VAR cad:string[20]; BEGIN cad:='La historia de un hombre'; SetLength(cad,10); Writeln(StringofChar('*',10)); Writeln(cad); Writeln(StringofChar('*',10)) END.