Viết chương trình nhập từ bàn phím một xâu s. Đưa kết quả ra màn hình với xâu s viết hoa đầu mỗi từ.(biết xâu đã được chuẩn hóa)

uses crt;
var st: string;
kt: string[1];
i,d,cd:integer;
begin
        clrscr;
        write(‘nhap 1 chuoi:’); readln(st); st[1]:=upcase(st[1]);
        for i:=1 to length(st) do
        if st[i]=’ ‘ then st[i+1]:=upcase(st[i+1]);
        write(‘nhap 1 chuoi:’,st);
        readln;
        end.

uses crt;

var S : string; i : byte;

begin

clrscr;

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

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

if S[i] = ' ' then

S[i + 1] := upcase(S[i + 1]);

S[1] := upcase(S[1]);

write('Xau chuan hoa : ', S);

end.