program nikukopun(output); var text, key, s : String; p : Integer; begin text := '藁藁藁藁藁藁藁藁藁'; key := '藁'; s := '(・∀・)ニクコプーン!'; repeat p := pos(key, text); if p > 0 then begin Delete( text, p, Length(key)); Insert( s, text, p) end; until p = 0;
*He's a (・∀・)ニクコプーン キレてるぜ *He's a (・∀・)ニクコプーン *いつでも Burning speed ball *カプセル Fire speed ball *まるでノクタンビュールさ 夢で踊る
She's a (・∀・)ニクコプーン イカレてるぜ She's a (・∀・)ニクコプーン いつでも All or nothing She loves it all or nothing シャレた コケティッシュ・ドールさ闇で踊る
**(・∀・)ニクコプーン Said **“Hey boy, listen to me” **“Hey girl, listen to me now **You must be (・∀・)ニクコプーン by yourself” **Thank you (・∀・)ニクコプーン , don't be a fool **(・∀・)ニクコプーン この街を駆けぬけろ **(・∀・)ニクコプーン この時をブチやぶれ **手遅れになる前に (・∀・)ニクコプーン !! **(・∀・)ニクコプーン この街を駆けぬけろ **(・∀・)ニクコプーン この時をブチやぶれ **手遅れになる前に (・∀・)ニクコプーン !!