Объясните прогу

// объявление БОРЛАНДОВСКИХ заголовочных файлов
#include <fstream.h> // библиотека для работы с файлами, у нормальных людей #include <fstream> 
#include <iostream.h> // библиотека для ввода-вывода (I/O), у нормальных людей #include <iostream> 
#include <stdio.h> // библиотека для ввода-вывода (I/O) языка С, у нормальных людей её не будет, т.к. она включена в предыдущую
#include <windows.h> // хрен знает что здесь делает этот инклюд
 
struct FAIL // объявляем структуру FAIL                       
{
    char a[20] ;int k; // с двумя полями: символьный массив и число типа int
};
 
struct list  // объявляем структуру list                  
{
    FAIL fail;list *next;  // с двумя полями: структурной переменной FAIL и указателем на след. структуру типа list
};
 
typedef list list1; // даем новое имя структуре (синоним)
list1 *first=NULL;int len=0; // объявляем указатель на структуру list, глобальную переменную len = 0 (хотя все глобальные переменные итак равны 0 при объявлении) 
// P.S. использование глобальных переменных нежелательно, Это моветон. 
 
void begin(FAIL val) // объявляем функцию begin, принимающую в качестве параметра структурную переменную типа FAIL            
{
    list1 *prom=new list1; // объявляем указатель на новую структурную переменную типа list и выделяем под неё память
    prom->fail=val; // инициализируем поля новой структурной переменной. 
    prom->next=first; // поле следующий элемент теперь указывает на первую
    first=prom; // указатель на начало теперь указывает на нашу новую структурную переменную list
    len++; // увеличиваем счетчик на единицу
}
 
void sort() // объявляем  и описываем функцию сортировки                
{       
    for(char a='a';a<='z';a++) // от a до z
    {list1 *prom=first;  // объявляем указатель на структурную переменную типа list и инициализируем его на на начало
    if(!prom) // если он равен NULL
    {cout<<"list chistyi"; // выводим, что список пуст и выходим
    return;}
    while(prom) // пока указатель не равен NULL
    {if(prom->fail.a[0]==a) // если  первая буква поля fail структруной переменной list равно параметру цикла
    cout<<prom->fail.a<<endl; // выводим поле fail на экран
    prom=prom->next;}} // переходим далее по списку (prom теперь равен собственному полю next, где хранится указатель на след. структурную переменную
    cout<<endl;
}
 
void screen() // функция вывода на экран                        
{
    list1 *prom=first;  // объявляем указатель на структурную переменную типа list и инициализируем его на на начало
    if(!prom) // если указатель равен нулю, то выводим, что список пуст и выходим из функции
    {cout<<"list chistyi";
    return;}
    cout<<"list:\n";
    while(prom) // пока указатель не равен нулю
    {cout<<prom->fail.a<<"  "<<prom->fail.k<<endl; // выводим значения свойст структуры
    prom=prom->next;} // переходим дальше по списку
    cout<<endl;
}
 
bool test(CHAR a[20]) // функция поиска слова в списке. по хорошему писать надо char           
{
    list1 *prom=first; // список на начало
    if(!prom) // если список пуст
        return 1; // вернуть истину
    while(prom)
    {
        if(strcmp(a,prom->fail.a)==0) // если значение совпадает с полем структурной переменной
        {prom->fail.k++; // увеличиваем значение свойства k на единицу (инкримируем его)
        return 0;} // возвращаем ложь
        prom=prom->next; // перемещаемся дальше по списку
    }return 1; // вернуть истину (если прошлись по всему списку и не нашли слова)
}
 
void add() // функция добавления       
{
    char *p=new char[20]; // выделяем память 
    FILE *f1=NULL; // объявляем указатель для работы с файлом
    do
    {
        cout<<"input filename";
        cin>>p; // считываем имя файла
        system("cls"); // очищаем экран
        f1=fopen(p,"r"); // открываем файл с режимом только чтение
    }
    while(!f1); // делать пока указатель равен NULL
    fstream f(p,ios::in); // открываем поток записи в файл 
              // почему в одном случае используется С-шный стиль, в другом С++шный непонятно
    delete []p; // освобождаем память
    char a[20]; FAIL b;b.k=1;
    while(!f.eof()) // пока не конец файла
    {
        f>>a; // считываем значение с файла в переменную а
        strlwr(a);
        if(test(a)) // если значение не найдено
        {
            strcpy(b.a,a); // добавляем в список
            begin(b);
        }
    }
    f.close();fclose(f1); // закрываем файлы
}
 
void stop() // функция паузы                    
{
    system("pause");system("cls"); //пауза, очистка экрана
}   
 
void main() // ахтунг, ошибкен! По стандарту принято писать int main()
{   
    add();
    screen();
    stop();
    sort();
    stop();
}