FreePascal.ru

Чёрт. Спасибо. Такая глупая ошибка... Будут ещё вопросы - отпишусь

program pupils_utils_1;
var VibKat,DlyaVib,InNext,NeKat: string;
// Dial - ЇҐаҐ¬Ґ­­ п ⥪г饣® ¤Ё «®Ј (ўлЎҐаҐвҐ ...)
//x,x1,x2,y,y1,y2,z,a,b,c,D: extended
//a,b,c - Є®нддЁжҐ­вл ў га ў­Ґ­Ёпе; x1,x2,y1,y2 - Є®а­Ё га ў­Ґ­Ё©; x,y,z - ­ҐЁ§ўҐбв­лҐ; D - ¤ЁбЄаЁ¬Ё­ ­в
begin
writeln ...

"не закрыта лексема кода" - в том то и дело, что идёт строка procedure MainMenu, на которую он и ругается.
Зачем тут могут понадобиться функции? Никакого значения же возвращать не надо.
Была уже идея сделать всё модулями, но это тогда нужно писать с помощью ООП, процедурное будет не вариантом.
А ...

Вроде бы сделал так, как указано в варианте с процедурами, но сами процедуры как-то не корректно работают: при компиляции на строку с процедурой выдаёт сначала invalid expression, а затем не считает имя процедуры за имя и выдаёт fatal error: ";" expected but identifer 'MainMenu" found. Что не так?

Проще не значит лучше Попробую вариант с процедурами. Спасибо!

По идее, эта ветка должна возвращать в предыдущее меню. Если нельзя использовать оператор end, то какие есть другие варианты?
P.S. GoTo советовать в крайнем случае: програмка будет не маленькая.

Сейчас работаю над небольшим проектом, в котором без меню не обойтись. Программа консольная, меню написано и компилится, но.
1) не могу заставить работать else в case of...
2) не могу сделать возврат в предыдущее меню. Использовал оператор end, и их количество вроде бы как раз должно вернуть в ...