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