Закрывается консоль, несмотря на readln(); - Free Pascal

Формулировка задачи:

Здравствуйте, появилась такая проблема

                    Листинг программы
                
 
                        
                          
                    
program Project1;
 
 var
   i,j,k:integer;
begin
read(i);
read(j);   //если вместо этого написать readln консоль подождет
writeln(i, '  ', j);
readln();// захлопывается если не задвоить readln
end.

Вроде как readln() стоит, а консоль все равно захлопывается, в ходе натурных экспериментов удалось выяснить , что если задвоить в конце Readln() или вместо последнего read написать readln, консоль подождет. Но, если написать сколь угодно много read() в конце, консоли будет все равно, она захлопнется

                    Листинг программы
                
 
                        
                          
                    
program Project1;
 var
   i,j,k:integer;
begin
read(i);
read(j);
writeln(i, '  ', j);
read();
read(); //захлопывается
end.

Где-то на подкорке после всех этих экспериментов я понимаю как работает, но вразумительного объяснения у меня нет почему происходит так, может кто-то подскажет?

Решение задачи: «Закрывается консоль, несмотря на readln();»

Листинг программы

ReadLn(число);

Объяснение кода листинга программы

Закрывается консоль;
Вводится число;
Результат не сохраняется ни в одной переменной;
Программа завершается.