Lời giải:

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.