Главная О Free Pascal IDE Скачать Форум О нас	Перидочески меняющиеся части кода программы. Скачать Целиком можно в разделе Скачать procedure H_ShowHelp; var help: text; outstring: string; begin assign (help, 'help.txt'); reset(help); textcolor(2); clrscr; repeat readln(help,outstring); writeln (outstring); until eof(help); close(help); writeln; textcolor(14); writeln('Нажмите Enter для выхода в главное меню'); readln end; {-= конец H_ShowHelp =-}