Функция read в середине программы не считывает данные с клавиатуры

read( answer ); { строка 23 }

program first;
uses System;
var
   N, a, b, i: integer;
function getNaturalInt( requestStr: String ): integer;
var
    x: integer;
    entered: boolean;
    answer: String;
begin
    entered := false;
    answer := '';
    while ( not entered ) do
        begin
        write( requestStr );
        read( x );
        
        if ( x < 1 ) then
            begin
                repeat
                    write( 'Вы ввели не натрульное число. Повторить ввод? [y/n]: ' );
                    read( answer );
                until ( ( answer <> 'y' ) or ( answer <> 'n' ) or ( answer <> 'Y' ) or ( answer <> 'N' ) );
                
                if ( ( answer = 'n' ) or ( answer = 'N' ) ) then
                    raise new System.FormatException( 'User doesnt want to enter natural number =(' )
                else if ( ( answer = 'y' ) or ( answer = 'Y' ) ) then
                    continue
                else
                    raise new System.ApplicationException( 'function getNatural: Error 1. We should not be here!' );
            end
        else
            entered := true;
        end; { end while }
    
    Result := x;    
end;
begin
    N := getNaturalInt( 'Введите N:' );  
    a := getNaturalInt( 'Введите a: ' ); 
    b := getNaturalInt( 'Введите b: ' );
        
    for i:=1 to N do
        begin
        if ( (i mod a = b ) and (i mod b = a ) )    then writeln( i );
        end;
    
    writeln( 'end' );       
    
end.