chuyên tin nha

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, j : byte;

begin

clrscr;

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

i := 1; while s[i] = ' ' do delete(s, i, 1);

i := length(s); while s[i] = ' ' do begin delete(s, i, 1); i := i - 1; end;

j := 1;

while j <= (length(s) - 1) do

begin

if (s[j] = ' ') and (s[j + 1] = ' ')

then begin delete(s, j, 1); j := j; end else j := j + 1;

end;

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

if (s[i] = ' ') and (s[i + 1] <> ' ')

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

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

write('Xau moi : ', s);

readln

end.