АСОИ, Delphi, много вариантов 2 сем

Решение
Файл с решением: