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