Цитата:
Сообщение от lenchik1
задача зависает при запуске
|
Угу. Потому что там ошибка (и даже серия ошибок) в процедуре vvoddannuh. Считывая вводимые данные с консоли, Вы зачем-то всюду ставите Readln(
f, . Это - грубейшая ошибка. Уберите ссылки на файл! Ну и заодно - не вижу, чтобы в этой процедуре присваивались значения элементам массива записей a, что-нибудь вроде a[i]:=p; - раз уж Вы объявляете это самое a выходным параметром. Не говоря уж о пропущенном вводе значения поля group. В общем, отлаживайте, и лучше - самостоятельно. Удачи!