Reset(F,1) ;

{Резервируем память и грузим шрифт} GetMem(P,FileSize(F) ) ;

BlockReacKF^^FileSizefF) ) ;

Close(F) ;

(Регистрируем шрифт и перехватываем ввод-вывод} SetFont(p,8,H) ;

GraphWriteOn;

{Создаем текстовое окно} TextColor(Black) ;

TextBackGround(White) ;

SetWindow ((GetMaxChar-DX) div 2,2,(GetMaxChar+DX) div 2,

(GetMaxLine+DY) div 3,DoubleBorder,

' Нажмите любую клавишу ',True,False,False);

{Открываем файл с текстом программы}

S := copy(ParamStr(0),1,pos('.',ParamStr(0)))+'pas';

Assign(FT,S) ;

Reset(FT) ;

(Читаем файл и выводим его в окно} for N := 1 to DY do

begin

ReadLn(FT,S) ;

WriteLn(S)

end;

Close(FT) ;

{Ждем действий пользователя} while not KeyPressed do;

while KeyPressed do

С := ReadKey;

{Очищаем текстовое окно и вводим строку} CIrScr;

WriteLn('Введите произвольный текст') ;

ReadLn(S) ;

{Сдвигаем ввод вниз окна и ждем} Scrolling(-DY div 2) ;

WriteLn('Текст смещен на ',-DY div 2,' строк');

WriteLn('Нажмите любую клавишу...');

С := ReadKey;

{Завершаем работу программы} GraphWriteOff;

CloseGraph end.