[Nyctos Kasignete]

Ksully, у вас бесконечный цикл! Чтобы цикл когда-нибудь все-таки завершился, необходимо, чтобы выполнилось условие L > Lk...

Сообщение от Ksully

Код:

While l<=Lk do

Но ни та, ни другая переменная в цикле никак не модифицируются. Соответственно, однажды войдя в цикл, вы не выйдете из него. Отсюда ошибка.