var s:string; begin s:='test'; s[2]:='b'; writeln(s); writeln(s[2]); readln; end.