assignCr.pas

{AssignCr.PAS}
 
{ Пример программы для процедуры AssignCrt }
 
Uses WinCrt;
 
Var MyScreenFile : Text;
 
Begin
     AssignCrt(MyScreenFile);
     ReWrite(MyScreenFile);
     WriteLn(MyScreenFile,
     'Файловая переменная MyScreenFile связана с экраном.');
   Close(MyScreenFile);
End.