Viết chương trình nhập vào 1 xâu bất kỳ. Hãy chuẩn hóa xâu đó theo quy tắc sau: – Viết hoa kí tự là chữ ở đầu xâu và kí tự đầu tiên là chữ sau dấu chấ

var s:ansistring;
o,i:longint;
begin
readln(s);
for i:=1 to length(s) do
        if (s[i]in[‘a’..’z’])and(o<>1) then
                begin
                        write(upcase(s[i]));
                        o:=1;
                end
        else write(s[i]);
end.