http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1001489683&res=18&fi=no

管理人の方、削除ありがとうございす。お手数おかけしました。

ミスがありました。

×6: for i:= 1 to s1.Length -1 do
○6: for i:= 1 to s1.Length do