Netspirit, у тебя самый шустрый алгоритм получился. Пробовал процедуры и на асьме, но увы твой их всё равно сделал