Pascal/Turbo Pascal - Como utilizo el IORESULT para validar entrada de datos??

Uses CRT;

var

   N : integer;

begin

repeat

  clrscr;

Wriiteln('Introduzca un número entero');

{$i-}readln(n) {$i+}

 if ioresult<>0 then

    writeln('Valor incorrecto);

until ioresult=0;

readln

end.