Viết chương trình nhập họ và tên của một người và thực hiện các yêu cầu sau: a. Xóa các kí tự trắng thừa trong xâu (kí tự trắng thừa là kí tự trắng ở đầu, cuối họ tên và nhiều hơn một kí tự trắng giữa hai từ trong họ tên) b. Đổi các chữ cái đầu từ trong họ tên thành chữ in hoa c. Hãy cho biết từ dài nhất trong họ và tên của người đó, nếu có nhiều từ có độ dài bằng nhau thì in ra từ đầu tiên. d. Cho biết tên được tạo nên từ bao nhiêu chữ cái Tiếng Anh (không phân biệt chữ hoa chữ thường)

program Hello;
uses crt;
var ten,s,st:string;
    j:char;
    i,d,max:integer;
    az:array['a'..'z'] of boolean;
begin
    clrscr;
    write('Nhap ten: '); readln(ten);
    while ten[1] = ' ' do delete(ten,1,1);
    while ten[length(ten)] = ' ' do delete(ten,length(ten),1);
    while pos('  ', ten) > 0 do delete(ten, pos('  ', ten), 1);
    ten[1]:= upcase(ten[1]);
    for i:= 1 to length(ten) do
        begin
            if (ten[i] = ' ') then
                begin
                    ten[i + 1]:= upcase(ten[i + 1]);
                    if max < length(s) then 
                        begin
                            max:= length(s);
                            st:= s;
                            s:='';
                        end;
                end;
            if ten[i] <> ' ' then
                s:= s + ten[i]; 
            az[lowercase(ten[i])]:= true;
        end;
    for j:= 'a' to 'z' do
        if az[j] = true then inc(d);
    writeln('Ten da nhap: ', ten);
    writeln('Tu dai nhat: ', st);
    writeln('So luong chu cai: ', d);
readln;
end.

uses crt;
var st,s,k,max:string;
    i,dem:byte;
    d:array['A'..'Z'] of byte;
begin
    clrscr;
    readln(st);
    // a.
    while pos(#32#32,st)<>0 do delete(st,pos(#32#32,st),1);
    if st[1]=' ' then delete(st,1,1);
    if st[length(st)]=' ' then delete(st,length(st),1);
    writeln(st);
    // b.
    st[1]:=upcase(st[1]);
    for i:=pos(#32,st) to length(st) do
        if st[i]=#32 then
           st[i+1]:=upcase(st[i+1]);
    writeln(st);
    // c.
    s:=st+' ';
    max:='';
    while pos(#32,s)<>0 do
        begin
            k:=copy(s,1,pos(#32,s)-1);
            if length(max)<length(k) then
                max:=k;
            delete(s,1,pos(#32,s));
        end;
    writeln(max);
    // d.
    st:=upcase(st);
    dem:=0;
    for i:=1 to length(st) do
        if st[i]<>#32 then
        begin
            inc(d[st[i]]);
            if d[st[i]] = 1 then inc(dem);
        end;
    writeln(dem);
readkey;
end.