Реферат: Создание текстового редактора

writeln('Курсовая работа-а-а-а-а-а-а-а !!!!!!!!!!!!!!!!!');

readln;

end;

Procedure punkt2;

begin

ClrScr;

writeln('Тута всё понятно даже ребёнку.');

readln;

end;

Procedure MenuToScr;{ вывод меню на экран }

var i:integer;

begin

ClrScr;

for i:=1 to N do begin

GoToXY(x,y+i-1);

write(menu[i]);

end;

TextAttr:=SEL;

GoToXY(x,y+punkt-1);

write(menu[punkt]);{ выделим строку меню }

TextAttr:=NORM;

end;

begin

menu[1]:=' О программе ';

menu[2]:=' Помощь ';

menu[3]:=' Выход ';

punkt:=1;

x:=5;

y:=5; TextAttr:=NORM;