Чтобы использовать модуль Crt, его нужно указать в операторе
        uses вашей программы:

             uses Crt;

             При инициализации модуля Crt для того,  чтобы можно было об-
        ращаться к CRТ, вместо стандартных файлов ввода и вывода DOS наз-
        начаются стандартные входные и выходные текстовые файлы.  Это со-
        ответствует выполнению в начале программы следующих операторов:

             AssignCrt(Input); Reset(Input);
             AssignCrt(Output); Rewrite(Output);

             Это означает,  что переопределение входных и выходных файлов
        далее не допускается до тех пор,  пока для данных файлов не будет
        выполнено обратного переназначения  и  не  произойдет  переход  к
        стандартному вводу и выводу с помощью выполнения операторов:

             Assing(Input,''); Reset(Input);
             Assing(Output,''); RewriteOutput);