Viết ct nhập vào 1 xâu có độ dài tối đa 100 kí tự In ra màn hình câu vừa nhập sao cho _ kí tự đầu tiên là in hoa -và kí tự sau dấu cách cũng là in hoA

program LN;
uses crt;
var s,s1:string;
    i:integer;
begin
clrscr;
writeln('nhap vao 1 xau bat ki: ');
readln(s);
s[1]:=upcase(s[1]);
for i:= 1 to length(s) do
        if s[i] = ' ' then s[i+1]:= upcase(s[i+1]);
write('xau sau khi da chinh sua la: ',s);
readln
end.

program LN;
uses crt;
var s,s1:string;
    i:integer;
     begin
     clrscr;
  writeln('nhap vao 1 xau bat ki: ');
  readln(s);
  s[1]:=upcase(s[1]);
for i:= 1 to length(s) do
        if s[i] = ' ' then s[i+1]:= upcase(s[i+1]);
  write('xau sau khi da chinh sua la: ',s);
readln;
end.