Исходный текст программы. Program Redaktor Uses Crt,Tim использовать модули Crt и Tim Label b метка Var тело Programname,Cmdline string nn, i,x, y integer f1,f1 new text Name,New name string 12 txt, text string ch char begin i 1 textbackground red clrscr textcolor yellow gotoxy 22,10 writeln Текстовый процессорTimofeev Word gotoxy 22,11 writeln Версия 1.0 2001 год gotoxy 40,15 writeln Составил ТимофеевТимур 2-АС-3 textcolor green gotoxy 40,16 writeln Все правазащищены. gotoxy 40,17 writeln Незаконноекопирование gotoxy 40,18 writeln или подделка безсогласия автора gotoxy 40,19 writeln преследуется попонятиям delay 5000 textcolor yellow table gotoxy 2,21 write Введите имя readln name assign f1,name rewrite f1 gotoxy 2,21 write Вводите текст gotoxy 1,2 repeat write chr 179 , gt readln txt writeln f1,txt until txt close f1 gotoxy 2,21 writeln Ввод окончен, нажмите чего-нибудь repeat readkey keys nn case nn of определяет нажатиефункциональных клавиш 59 menu F1 60 begin F2 table gotoxy 2,21 write gotoxy 2,21 write Введите имя readln name assign f1,name rewrite f1 gotoxy 2,21 write Вводите текст gotoxy 1,2 repeatwrite chr 179 , gt readln txt writeln f1,txt until txt close f1 gotoxy 2,21 writeln Ввод окончен, нажмитечего-нибудь end 61 begin F3 gotoxy 2,21 write Введите имя файла, вкоторый копир-я файл, name gt readln new name reset f1 assign f1 new, new name append f1 new while not eof f1 do begin readln f1,txt writeln f1 new, txt end close f1 close f1 new gotoxy 2,21 writeln Файл, name, скопирован в, new name, нажмите чего-нибудь end 62 begin F4 gotoxy 2,21 write gotoxy 2,21 write Введите новое имяфайла readln new name assign f1,name rename f1,new name gotoxy 2,21 writeln Файл, name, перименован в, new name, нажмите чего-нибудь end 63 begin F5 erase f1 gotoxy 2,21 writeln Файл, name, удал нс диска, нажмите чего-нибудь end 64 begin F6 I- repeatgotoxy 2,21 write Введите имя файла длясчитывания текста - gt readln name assign f1,name reset f1 if ioresult lt gt 0 thenbegingotoxy 2,21 writeln Файл не найден close f1 end until ioresult 0 I table gotoxy 1,2 while not eof f1 dobeginreadln f1,txt writeln chr 179 ,txt end close f1 gotoxy 2,21 write Файл считан, нажмитечего-нибудь end 68 goto b F10 Происходит выход на метку end until i lt 0 считывай функциональные клавиши покаi lt 0, а т.к. i 1 и не изменяется, то этот процесс бесконечен b end.