Курсовая работа: Разработка базы данных, отражающей учет успеваемости студентов

nast:=menu1;

menus(nast,nast.m);

tabl1(tek,rab,false);

izm:=0;

tek:=2;

end

else if iz=3 then begin {изменение данных}

tems:=rab;

tabl1(tek,rab,true);

writeln('Введите уникальный номер'); readln(dlud);

bis:=true;

while tems<>nil do begin

if tems^.tabl.t1=dlud then begin

writeln(mm[t,1]);readln(tems^.tabl.t1);

writeln(mm[t,2]);readln(tems^.tabl.t2);

writeln(mm[t,3]);readln(tems^.tabl.t3);

writeln(mm[t,4]);readln(tems^.tabl.t4);

writeln(mm[t,5]);readln(tems^.tabl.t5);

break;

end;

tems:=tems^.sled;

end;

if bis then writeln('Данной записи не обнаруженно');

nast:=menu1;

menus(nast,nast.m);

tabl1(tek,rab,false);

izm:=0; tek:=2;

end;

end;