Циклический код на Pascal - В чем ошибка?

[Powerstrie]

Подскажите пожалуйста в чем ошибка?

program example;
var x :integer;
Lable m1;
begin
x:= 1;
writeln('Начало счета');
m1:write(x,'');
x:= x+1;
if x<100 then goto m1
else writeln('Счет закончен')
end.

___________
1. Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться.


2. Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Не забывайте об этом!

Модератор.

[veniside]

лейбл пишется так: label

[kuy]

я бы так написал:

program example;
{$APPTYPE CONSOLE}
 var x :integer;
 Label m1;
 begin
 x:= 1;
 writeln('Start counting:');
 m1:writeln(x,'');
 x:= x+1;
 if x<100 then goto m1
 else writeln('Score over');
 Write('Press Enter to EXIT');
 readln;
 end.

[Serge_Bliznykov]

зачем использовать метки?! Особенно там, где они и даром не нужны!

так не проще?

program example;
{$APPTYPE CONSOLE}
 var x :integer;
 begin
   x:= 1;
   writeln('Start counting:');
   repeat 
     writeln(x,'');
     x:= x+1;
   until x>=100;
   writeln('Score over');
   Write('Press Enter to EXIT');
   readln;
 end.