izrukvruki, я вот до сих пор придумываю, не могу сказать, что получается. Над последнем решении забыл поставить проверку на keypressed в цикле для осторожности. В итоге, все было утеряно зацикливанием, в том числе и энтузиазм что-то придумывать. В любом случае, если у кого-нибудь есть возможность, прошу написать.

Upd. Efrit, вот не знаю. На основе того, что я видел, все довольно понятно и паскальщику. Если не составит особых проблем, то было бы неплохо)