Говорят что копаться в чужом программном коде дело жутко неблагодарное.
В общем прикрепляю исходник на Паскале, ибо программу писал в Delphi. Только с одним условием: код не критиковать! Я знаю что он не идеален и не эргономичен; понимаю что можно было написать намного проще и используя другие функции. Но простите, программирование - это лишь мое хобби, за которое не брался уже как лет 10 (как получил водительское удостоверение ). Пришлось всё вспоминать с нуля, да и писалось всё в течении дня.
Чтобы не засорять тему, если будут вопросы по коду - лучше пишите в личку.