diff --git a/PRAKTIKA.PAS b/PRAKTIKA.PAS index b7cf95e..1a39da2 100644 --- a/PRAKTIKA.PAS +++ b/PRAKTIKA.PAS @@ -59,7 +59,7 @@ program pr; lectstatus := 'F1 - Помощь T - Тест ESC - Меню'; teststatus := 'F1 - Помощь L - Лекции ESC - Меню'; menustatus := 'ESC - Выход UP,DOWN,LEFT,RIGHT - Передвижение курсора ENTER - Переход'; - path := 'D:\TP\BIN\annimon\'; + path := 'annimon\'; {Menu Lekcii} for i:= 1 to 10 do begin @@ -117,7 +117,6 @@ program pr; outtextxy(99, 170,author); outtextxy(239, 230, dtpa); repeat until keypressed; - menu; end; {Vyvod pomoschi pri chtenii lekcii}