Nhập vào một xâu in hoa kí tự thứ 2 xuất ra màn hình

program in_hoa;

uses crt;

var s:string;

begin

       clrscr;

       write(‘Nhap xau: ‘);  readln(S);

       s[2]:=upcase(s[2]);

       write(s);

       readln;

end.