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

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

tem^.sled:=nil;

tem:=rab;

izm:=0;

nast:=menu1;

menus(nast,nast.m);

tek:=2; iz:=0;

end

else if iz=2 then begin {Удаление записи}

tems:=rab;

tabl1(tek,rab,true);

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

bis:=true;

if rab^.tabl.t1 = dlud then begin

rab:=rab^.sled;

bis:=false;

end

else begin

while tems<>nil do begin

if tems^.sled^.tabl.t1=dlud then begin

tem:=tems^.sled;

tems^.sled:=tems^.sled^.sled;

dispose(tem);

bis:=false;

break;

end;

tems:=tems^.sled;

end;

end;