Можно ли и как?

[Petr1993]

Можно ли вызвать из данной процедуры ту процедуру,которая идёт после данной?
Пример:
procedure pr();
begin
...
pr2();
...
end;

procedure pr2();
begin
...
...
end;
можно ли pr из процедуры вызвать pr2?

[BDA]

Example:
(* Forwarded procedure *)
procedure Flip(N: Integer); forward;
procedure Flop(N: Integer);
begin
WriteLn('Flop');
if N > 0 then Flip(N - 1);
end;
procedure Flip;
begin
WriteLn('Flip');
if N > 0 then Flop(N - 1);
end;

пустой текст

[Petr1993]

Спасибо, помогло.