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

repeat

ch:=ReadKey;

if ch=char(0) then begin

ch:=ReadKey;

case ch of

chr(80):{ стрелка вниз }

if punkt<N then begin

GoToXY(x,y+punkt-1);

write(menu[punkt]);

punkt:=punkt+1;

TextAttr:=SEl;

GoToXY(x,y+punkt-1);

write(menu[punkt]);

TextAttr:=NORM;

end;

chr(72):{ стрелка вверх }

if punkt>1 then begin

GoToXY(x,y+punkt-1);

write(menu[punkt]);

punkt:=punkt-1;

TextAttr:=SEl;

GoToXY(x,y+punkt-1);

write(menu[punkt]);

TextAttr:=NORM;

end;

end;

end

else

if ch=chr(13) then begin { нажата клавиша <Enter> }