[BASSON XVI]

Это как ты пишет не всегда удобно вот тебе так поробуй!!!

procedure 123e; forward;

procedure 123d;
begin
...;
...;
123e; - на этом месте естественно будет выдавать ошибку, а как обойти???
end;

procedure 123e;
begin
...;
...;
123d;
end;