pascal 的label怎样声明

在pascal语言中,声明部分的顺序是：
program（）；

lable 标号
const 常量
type 自定类型
var 变量

procedure 过程
function 函数

begin 主程序

end.

第二问得程序：
program a;
var
s:integer;
c:char;
begin
repeat
read(c);
if c='a' then inc(s);
until c='.';
writeln(s);
end.

举个例子：
program juli;
var a:integer;
label 10;
begin
10: read(a);
for b:=1 to 5 do
a:=a+1;
if a>15 then goto 10;
end.
label是定义的一个标号，是某一行的标号。一般与goto语句一起用。
拿上面的小程序来说，“10”是第5行的标号。
当满足那个条件（a>15）时程序会跳到第5行。
也就是说输入时如果是个大于10的数就会让你从新输入。
呵呵 如果懂了那么给分吧？？

句子啊？如果连着输入它是不会自己跳出来的，只能输入一个字符按一下回车
program zifu;
var cishu:integer;
c:char;
begin
cishu:=0;
read