Порядок вызова процедуры

[artem611]

Народ помогите разобраться.Знаю, что вопрос глупый, но никак не могу сообразить. Есть код

var
procedure xz(k:integer);
begin
while(k<>5) do
begin
xz(k+1);
inc(l);
end;
end;
begin
l:=0;
readln(k){Здесь пусть к вводим 1}
end.

Я вот не могу разобраться. Когда мы попадаем в процедуру, хаходим в цикл и снова вызываем эту же процедуру с к=к+1 мы перейдем в начало процедуры или же сначала выполниться все что стоит в процедуре после ее вызова, а уже потом перейдем в начало процедуры?


Спасибо
ЗЫ:Знаю, что вопрос тупой, но...

[artem611]

Сейчас дебажу этот код, и получаетсчя, что если, например, к=4 вызывается процедура xz(4), заходим в цикл while, переходим в begin процедуры и получам xz(5), далее, естественно в операторы после while мы не зайдем и идем в конец процедуры. Тут вроде бы и все работа по идее должны закончитсья, но на самом деле получатся так:
после того как достигли end; процедуры, почему-то переходим в inc(l), далее вывод, увеличиваем k и получаем xz(5), дальше попытка зайти в цикл(проверка условия), inc(l), потом опять аргумент xz() становится 4 и все по новой.
Что-то я совсем перестал понимать как работает код

[malinoff]

Перед вызовом xz(k+1) напишите k := k + 1;
Вызывайте не xz(k+1) а xz(k)

[Serge_Bliznykov]

что-там дебажить то?!!
Цикл по переменной K (пока она не равна 5 цикл будет выполняться. Так?
А внутри цикла переменная K НЕ ИЗМЕНЯЕТСЯ.
всё. получили бесконечный цикл.

p.s. а вообще, вызов процедуры/функции самой себя называется РЕКУРСИЕЙ