assign

Ответ от Jurii[гуру]
Чтобы прочитать данные из ТЕКСТОВОГО файла, а не с КОНОЛИ, нужно открыть этот файл и прочесть: var Fin : Text; { объявляем файл как текстовый файл } A, B, C : Integer; … Assign(Fin, 'input.txt'); { связываем переменную с именем файла } Reset(Fin); { открываем файл для чтения } ReadLn(Fin, A, B, C); { читаем так же как с консоли, но из источника Fin } Close(Fin); { закрываем файл } По умолчанию в Паскале консоль − это тот же файл: Input − файл для чтения, Output − файл для записи. Только связывать его с именем файла не нужно… … и не нужно открывать и закрывать. 😉 Т. е. следующие 2 строки работают в Паскале одинаково: WriteLn(123); WriteLn(Output, 123); В вашем случаем можно не использовать объявление текстового файла, а использовать перенаправление потоков ввода/вывода. Для этого в начало программы необходимо добавить 2 строки: Assign(Input, 'Input.txt'); Reset(Input); Assign(Output, 'Output.txt'); Rewrite(Output); … и всё! Данные будут браться из input.txt, а результаты сохраняться в output.txt