не работают процедуры через case of

[sproject]

From Stilet: Текст темы то где? ТЗ подробное где? Еще раз пустую тему увижу удалять начну.

[sllh_111]

procedure menu;
writeln('1-peresechenie');
writeln('2- obedinenie');
writeln('4-simrazost');
writeln('5-decatrtovoe proizvedenie');
writeln('6- vixod ');

repeat
readln(s);
Case s of
1: prc(a, B);
2: obd(a, B);
3: raz(a,B);
4: sim (a,B);
5: dp (a,B);
     6: halt;
End;
until s> 6;
end;
begin clrscr;
menu;
End.

процедура меню должна выглядеть примерно так. Исправь свою прогу по этому промеру.
и если не тяжело, то кинь отзыв(слево в моем профиле нажми на весы).

[sproject]

А как сделать чтобы элементы множества загружать из файла?

[sllh_111]

assign
reset
но те проще самому вводить