================================================================= Объявление procedure ClearHistory;
Функция Удаляет все строки из всех списков истории.