Неудобство ABC Pascal и глюк Borland Pascal

[proser93]

Здравствуйте! Выяснил, что функция ioresult не поддерживается на ABC Pascal - а есть ли альтернативы? (при отключении контроля требуется проверка на код ошибки - т.е. если 0, то все норм, если не 0, то значит ошибка)
Также в Borland Pascal запустил программу, и она там зациклилась, хотя на ABC все работает нормально. Помогите пожалуйста мне разобраться в этой мистике!)
Вот собственно прога (вычисляет НОК 4 введенных нат. чисел)

uses crt;
var i:integer;
    nok1,nok2,rez:longint;
    button:string;
    dig:array[1..4]of integer;
procedure NOK(a,b: integer; var r:longint);  {procedure to calc nok of 2 numbers}
 var z: integer;
begin
if a>b then z:=a
else z:=b;
while not ((z mod a=0) and (z mod b=0)) do
z:=z+1;
r:=z;
end;
begin
    while (button[1]<>'y') or (button[1]<>'n') or (length(button) > 1) do begin
       writeln('Continue?(Press y to continue, n to exit)');
       read(button);
       if length(button) > 1 then writeln('Too many buttons')
       else
       if button[1] = 'n' then halt(0)  {Choice of action and screening incorrect keystrokes}
       else
      if button[1] = 'y' then begin
      delete(button,1,length(button));
         i:= 1;
          while i < 5 do begin
              writeln('Enter ',i,' number: ');
              {$I-}   
              read(dig[i]);
              if (ioresult <> 0) or (dig[i]<1) then begin writeln('Incorrect input, retry!'); i:=i-1 end;
              {$I+}
              i:= i + 1;
              end;
              NOK(dig[1],dig[2],nok1);
              NOK(nok1,dig[3],nok2);
              NOK(nok2,dig[4],rez);
              writeln(rez);     {Print result}
              end;
    end;
 end.