{$codepage UTF8} VAR cad100:string[100]; BEGIN cad100:='La taciencia es amarga, pero sus frutos son dulces'; Writeln('mal escrito : ', cad100); cad100[4]:='p'; Writeln('corregido : ',cad100) END.