Pascal/Turbo Pascal - Comprobación de datos correctos en Pascal

{A ver si esto te aclara dudas }

 program comprobar;

  uses

    crt;

      var

        numero : integer;

        repite : boolean;

   begin

    repeat

      clrscr;

      write('   Entre Numero Entero : ');

      {$I-} readln(numero); {$I+}

      if ioresult <> 0 then

      begin

         writeln('  Error En El Numero Entrado Pulse Una Tecla');

         repite := true;

         readkey;

      end

   else

      begin

         writeln('   El Numero Entrado Es : ',numero);

         writeln('   Pulse Una Tecla');

         repite := false;

         readkey;

      end;

    until repite = false;

   end.