Цикл в цикле, зацикливание, запуск программы через командную строку

[Решетова Алена]

Здравствуйте. Такая схема:

var strin: AnsiString;
answer: string;
BEGIN
while not eof do
begin
readln(strin);
//куча кода
repeat
Writeln('Введите свой ответ: yes/no');
Readln(answer);
until ((answer='yes') or (answer='no'));
//куча кода
end;
END.

Или вместо repeat until использовать:
while ((answer<>'yes') and (answer<>'no')) do
begin
Writeln('Введите свой ответ: yes/no');
Readln(answer);
end;

Вопрос: почему при запуске ехе'шника и обычного ввода с клавиатуры строки всё нормально, т.е. программа выводит 'Введите свой ответ: yes/no' и ждет ввода значения, если это не yes и не no, то предложение повторяется, пока не будет введено или yes или no. НО, когда через командную строку запускать и подавать на вход программе файл, будь он с одной строкой, с двумя или с множеством строк, предложение 'Введите свой ответ: yes/no' зацикливается, не ожидая ввода?
Ведь программа выполняется построчно, пока весь файл не будет прочитан. Мне нужно, чтобы на выполнении определенной строки, программа выводила это предложение 'Введите свой ответ: yes/no' и ждала ввода, а не срывалась на бесконечный вывод.
Как такое можно сделать? Подскажите, пожалуйста.

[Решетова Алена]

Ответ уже получила. Может кому-то понадобится.

Речь о
file.exe < file.txt
Подавая на вход программе файл, стандартный поток ввода (файловая переменная input, из которой читает Read[Ln], когда файловая переменная не указана явно) связывается с этим файлом, ввода с клавиатуры не производится, только из этого файла. Именно там должны быть ответы на все задаваемые вопросы для такого случая.

Можно открывайть файл из программы, если нужно сохранить ввод с клавиатуры.
Другой вариант -- чтобы что-то читать с клавиатуры, использовать отдельную переменную типа 'text':

var con: text;
...
Assign(con,''); Reset(con);
...
ReadLn(con,answer);

Если не сработает при перенаправлении, можно попробовать указать имя консоли явно в Assign(con,'con'); (непереносимо между Windows/Linux).

Ответил bormant с CyberForum

[ViktorR]

А что за версия языка?
В какой части программы обрабатываются параметры командной строки?
Т.е., если

readln(strin);

- то это чтение из файла?
а тогда что это?

Readln(answer);

- чтение с клавиатуры?


Как-то так, ...

[Решетова Алена]

Ну.. мне так и надо было, что readln(strin) - чтение строки из файла, а readln(answer) - ответ с клавиатуры и после завершения всех работ с одной строкой, переход к следующей строке и так, пока файл не закончится.

В общем, мне помогло

var strin: AnsiString;
answer: string;
con: text;
BEGIN
Assign(con,'con');
Reset(con);
while not eof do
begin
readln(strin);
//куча кода
repeat
Writeln('Введите свой ответ: yes/no');
ReadLn(con,answer);
until ((answer='yes') or (answer='no'));
//куча кода
end;
END.

[Решетова Алена]

обычный паскаль

[ViktorR]

readln(strin);

ReadLn(con,answer);
--------^
Собственно для понимания этого и был вопрос.


Как-то так, ...