Pascal/Turbo Pascal - Error al escribir un programa q escriba los números del 1 al 100.

var

  a:integer;

  b:integer;

  z:integer;

begin

  a:= 1;

  writeln (a);

  repeat

     b:= a+1;

     writeln (b);

  until a=101 ;

  readln (z);

end.

var

  a:integer;

  b:integer;

  z:integer;

begin

  a:= 1;

  writeln (a);

  repeat

     b:= a+1;  {b Siempre sera 2}

     writeln (b);

  until a=101 ;

  readln (z);

end.

 tendria que ser.

 a := 1;

 writeln(a);

 repeat

     b := a + 1; {b tomara el valor de a mas 1}

     a := a + 1; {a se incrementara en 1}

     writeln(b);

 until a = 101;

  readln;

  end.