Как сделать, чтоб в первой процедуре можно было вызывать вторую, а во второй - первую? - Turbo Pascal

Формулировка задачи:

Если я правильно помню, в паскале в одной процедуре можно вызывать другую, если эта другая описана выше. А как сделать, если мне нужно в первой процедуре вызвать вторую, а во второй - первую?

Решение задачи: «Как сделать, чтоб в первой процедуре можно было вызывать вторую, а во второй - первую?»

Листинг программы

Var k : byte;
 
Procedure p2; Forward;
 
Procedure p1;
Begin
  If k<100 then
  Begin
    Inc(k);
    p2;
  end;
end;
 
Procedure p2;
Begin
  Inc(k);
  p1;
end;
 
Begin
  k:=0;
  p1;
  Writeln(k);
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Turbo Pascal. Он содержит две процедуры: p1 и p2. В процедуре p1 происходит следующее:

Переменная k инициализируется значением 0.
Если значение k меньше 100, то:
- Переменная k увеличивается на единицу.
- Вызывается процедура p2. В процедуре p2 происходит следующее:
Переменная k увеличивается на единицу.
Вызывается процедура p1. В начале программы переменной k присваивается значение 0, после чего вызывается процедура p1. Результат выполнения программы будет вывод в консоль значение переменной k, которое должно быть равно 1.