delphi中goto的用法

用goto构成的循环，如下：
（注意：标号需要用label先声明才能使用。）

program use_goto;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
i:integer;
label
outer,loop_start;
begin
i := 1;
loop_start:
if (i > 10)
then
goto outer;
writeln(i);
inc(i);
goto loop_start;
outer:

readln;
end.

运行结果：
1
2
3
4
5
6
7
8
9
10

// goto书写结构:

label

w,r; //先声明标号；

begin

w: //冒号结尾；

//.............代码块；

goto r; //分号结尾；