Помогите решить задучу пожалуйста в программе Pascal ABC. Заранее Спасибо!

var s:string;

begin

read(s);

delete(s,2,1);

writeln(s);

write('s[2]=',s[2])

end.