for i := A to B do
begin
. . .
begin
. . .
begin
. . .
. . .
end;
. . .
end;
begin
. . .
. . .
end;
. . .
end;
что то вроде этого и такой же вопрос к иф-у и уайл-у.
for i := A to B do
begin
. . .
begin
. . .
begin
. . .
. . .
end;
. . .
end;
begin
. . .
. . .
end;
. . .
end;