Giúp mình với ạ Viết chương trình IDE Pascal nhập vào một chuỗi xâu (string), in hoa các kí tự bên tay phải khoảng trắng Ví dụ là: to yeu cau => to Y

program in_hoa;

uses crt;

var s:string;

      i:byte;

begin

       clrscr;

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

       for i:=1 to length(s)-1 do

              if s[i]=’ ‘ then s[i+1]:=upcase(s[i+1]);

       write(s);

       readln;

end.