Tách các từ trong sâu `S`, mỗi từ là mỗi phần tử mảng `vocab`:

      `*` Khởi tạo `i` = 1 (chỉ số đầu tiên của kí tự đầu xâu `S`)

      `*` quanti := 1 (Số lượng từ)

      `*` Khởi tạo vocab[1] rỗng, khởi tạo vocab[i] rỗng sau khi gặp khi tự rỗng - nghĩa kết thúc `1` từ và bắt đầu từ mới

      `*` Tăng số lượng từ khi gặp kí tự trống và cộng dồn kí tự khi nó khác kí tự trắng vào `vocab[i]` hiện tại

    i := 1;
    quanti := 1;
    vocab[1] := '';
    while (i <= length(S)) do
    begin
        if S[i] <> ' ' then
            vocab[quanti] := vocab[quanti] + S[i]
        else 
            begin
                quanti := quanti + 1;
                vocab[i] := '';
            end;
            
        i := i + 1;
    end;
    

`" "`

Sắp xếp các từ trong tăng theo thứ tự từ điển (thuật toán sắp xếp nổi bọt):

for i := 1 to quanti - 1 do
    for j := i + 1 to quanti do 
        if vocab[j] < vocab[i] then
        begin
            temp := vocab[j];
            vocab[j] := vocab[i];
            vocab[i] := temp;
        end;

`" "`

Chương trình hoàn chỉnh:

program Millionnaire;
uses crt;
var S, temp: string;
    ecri, lire: text;
    i, j, quanti: byte;
    vocab: array[1..255] of string;
    
begin
    clrscr;
    assign(ecri, 'TRIEUPHU.INP');
    reset(ecri);
    assign(lire, 'TRIEUPHU.OUT');
    rewrite(lire);
    
    readln(ecri, S);
    
    i := 1;
    quanti := 1;
    vocab[1] := '';
    while (i <= length(S)) do
    begin
        if S[i] <> ' ' then
            vocab[quanti] := vocab[quanti] + S[i]
        else 
            begin
                quanti := quanti + 1;
                vocab[i] := '';
            end;
            
        i := i + 1;
    end;
    
    writeln(lire, quanti);
    for i := 1 to quanti - 1 do
        for j := i + 1 to quanti do 
            if vocab[j] < vocab[i] then
            begin
                temp := vocab[j];
                vocab[j] := vocab[i];
                vocab[i] := temp;
            end;
            
    for i := 1 to quanti do 
        write(lire, vocab[i], ' ');
        
    close(ecri);
    close(lire);
end.
                

#include <bits/stdc++.h>
using namespace std;
#define ll long long
#define nmax 1000007
vector <string> s;
signed main()
{
    string l;
    while(cin >> l)
    {
        s.push_back(l);
    }
    cout << s.size() << '\n';
    sort(s.begin(), s.end());
    for(int i = 0; i < s.size(); i++)
    {
        cout << s[i] << ' ';
    }
}