Темыч, а к какому сроку это надо? Если сегодня, то вряд ли успею, а вот на выходных могу поковыряться. Впрочем, может быть кто-нибудь еще успеет раньше меня.
Сходу одно замечание.
Я бы вместо бесконечного цикла с прерыванием
Код:
while true do
begin
if y=2 then
begin
close (studfile);
exit;
end;
.................
writeln ('prodoljit vvod? 1-da , 2- net');
readln (y);
.................
end;
Организовал бы это так:
Код:
Repeat
.................
writeln ('prodoljit vvod? 1-da , 2- net');
readln (y);
.................
Until y=2;
close (studfile);