[lifant]

укажи, где именно не понятно. Каждую строку никто комментировать не возьмется.
не думаю, что сложность вызывает "for I := 0 to N - 1 do " и т.п.