IOResult - с чем это связано?

В общем, есть такая чайниковая программа:

_____________________________________________
{$I-}

program Roads;

uses
Crt;

const lim=30;

type mas=array [1..lim] of word;

var
quant:byte;
choice:byte;
road:mas;
k:byte;
ioresultQuant, ioresultLength:integer;


Procedure Intro(var k:byte);
begin
ClrScr;
Writeln('Roads');
Writeln;

Repeat
Writeln('next - enter 1, quit - enter 0');
Readln(k);
Until ((k=0)or(k=1)) and (Ioresult=0);
end;

Procedure ReadQuant(var quant:byte;var ioresultQuant:integer);
begin
ClrScr;
Writeln;
Repeat
Writeln('Enter the quantity of the roads you wish to enter (2-30)');
Readln(quant);
ioresultQuant:=Ioresult;
Until ((quant>=2)and(quant<=30)) and (Ioresult=0);
end;


Procedure ReadLength(quant:byte; var road:mas;var ioresultLength:integer);
Var z:byte;
begin
ClrScr;
z:=0;
Writeln;
Repeat
z:=z+1;
Repeat
Writeln('Please enter length (1..300) of a road number ',z);
Readln(road[z]);
ioresultQuant:=Ioresult;
Until ((road[z]>=1)and(road[z]<=300)) and (Ioresult=0);
Until z=quant;
end;


Procedure SearchMin(quant:byte; var road:mas; var choice:byte);
var i,j:byte;
begin

choice:=1;
for j:=choice+1 to quant do
begin
if road[j]<road[choice] then begin choice:=j; end;
end;
end;

Procedure ChoiceOut(choice:byte; var k:byte);
begin
ClrScr;
Writeln;
Writeln('The driver will choose a road number ', choice);
Writeln;
Repeat
Writeln('reset - enter 1, quit - enter 0');
Readln(k);
Until ((k=0)or(k=1)) and (Ioresult=0);
end;

begin

Intro(k);
If k=1 then
Repeat
ReadQuant(quant,ioresultQuant);
ReadLength(quant, road,ioresultLength);
SearchMin(quant,road,choice);
ChoiceOut(choice,k);
Until k=0;


end.
{$I+}
_________________________________________________

Прошу особое внимание обратить на процедуры ReadQuant и ReadLength, в них как выходные (наряду с другими) используются переменные ioresultQuant и ioresultLength, которым присваивается значение ф-ии IOResult.
Далее: в кажой процедуре имеется цикл (если число введено вне диапазона или осуществлен нецифровой ввод (IOResult<>0)), то запрос на ввод повторяется.

Так вот. В этом ввиде программа работает нормально.
Если же избавиться от этих переменных - ioresultQuant и ioresultLength, которые, по идее, совершенно ни на что не влияют, то при нецифровом вводе в процедуре номер 1 (Intro) - запрос на ввод повторится, и если будет введено правильное значение, то программа вызовет следующую процедуру - ReadQuant, где, при нецифровом вводе программа зависнет (зациклится), хотя условия цикла в процедуре ReadQuant те же, что и в Intro?

Почему так???