Выкидывает из консоли - Free Pascal

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

Почему после ввода "Ваша улица?" меня выкидывает из консоли в Ide? Вот код. Подскажите в чем тут ошибка

                    Листинг программы
                
 
                        
                          
                    
Var H, A : Integer;
Var C, S : String;
Begin
Writeln ('Ваш город?');
Readln (C);
Writeln ('Ваша улица?');
Readln (S);
Writeln ('Номер дома?');
Readln (H);
Writeln ('Номер квартиры?');
Readln (A);
Writeln (C,' ',S,' ',H,' ',A);
Writeln ('Для выхода из программы нажмите ENTER!');
Readln
End.

Решение задачи: «Выкидывает из консоли»

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

1 uses Crt;
Var H, A : Integer;
Var C, S : String;
Begin
Writeln ('Ваш город?');
Readln (C);
Writeln ('Ваша улица?');
Readln (S);
Writeln ('Номер дома?');
Readln (H);
Writeln ('Номер квартиры?');
Readln (A);
Writeln (C,' ',S,' ',H,' ',A);
Writeln ('Для выхода из программы нажмите ENTER!');
Readln
End.

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

Объявление переменных: H, A, C, S типа Integer и String соответственно.
Вывод сообщения Ваш город? и считывание ответа в переменную C.
Вывод сообщения Ваша улица? и считывание ответа в переменную S.
Вывод сообщения Номер дома? и считывание ответа в переменную H.
Вывод сообщения Номер квартиры? и считывание ответа в переменную A.
Вывод сообщения, содержащего значения переменных C, S, H, A.
Вывод сообщения Для выхода из программы нажмите ENTER!
Ожидание нажатия клавиши ENTER для завершения программы.