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

end;

3:begin {Преподаватель}

writeln('Выедите название предмета');

readln(str1);

tem1:=tt2;

while tem1<>nil do begin

if tem1^.tabl.t2=str1 then begin str1:=tem1^.tabl.t3; break; end;

tem1:=tem1^.sled;

end;

tem1:=tt3;

while tem1<>nil do begin

if tem1^.tabl.t1=str1 then begin

textcolor(red);

writeln('Преподаватель-');

with tem1^.tabl do write(' ',t2,', ',t3,', ',t4);

nay:=true; break;

end;

tem1:=tem1^.sled;

end;

end;

4:begin {Найти размер стипендии}

writeln('Введите фамилию студента');

readln(str1);

tem1:=tt1;

while tem1<>nil do begin

if tem1^.tabl.t2=str1 then begin

textcolor(red);

writeln('Стипендия-',tem1^.tabl.t5);

nay:=true; break;