Pascal/Turbo Pascal - programa bucle

{Espero esto sirva}

program repeticion;

uses

   crt;

var

  tec : boolean;

  i, num1, num2 : integer;

 procedure entradas;

 begin

    tec := false;

    num1 := 0;

    num2 := 0;

    clrscr;

    repeat

       write('  Entre 1. numero :');

       readln(num1);

       write('  Entre 2. numero :');

       readln(num2);

    if num1 < num2 then

     tec := true

   else

      begin

         num1 := 0;

         num2 := 0;

      end;

    until tec = true;

    clrscr;

    for i := num1 to num2 do

    writeln(i);

    readkey;

 end;

  begin

    entradas;

  end.