~|~евто|-|, если доработать код, то получится. Я основу дал, пусть чел сам до ума доводит.
У меня FreePascal, он и так проглотил, и эдак)) Кроме того, код перед постом я проверяю. Не постил бы, если б не работало