nhập vào họ tên bất kì sau đó đổi các chữ đầu tiên của mỗi từ thành chữ hoa

program oken;

uses crt;

const chu = [‘a..z’];

var ten: string;

      i,k:integer;

begin

clrscr;

write(‘nhap ho va ten: ‘); readln(ten);

k:= length(ten);

if ten[1] in chu then ten[1]:= upcase(ten[1]);

for i:=2 to k do

   if (ten[i-1]= #32) and (ten[i] in chu) then 

           ten[i]:= upcase(ten[i]);

write(‘ten sau khi in hoa: ‘,ten);

readln;

end.