1
uses crt;
Type
date=record
ngay:byte;
thang:byte;
nam:integer;
end;
mark=record
van:real;
toan:real;
Ly:real;
tb:real;
End;
Item=record
Diem:mark;
Hoten:string;
Ngaysinh:date;
End;
Pointer=^cell;
Cell=record
Infor:item;
Next:pointer;
End;
{========================}
VAR
List1,list2:pointer;
{========================}
Procedure init(var l:pointer);
Begin

End;
p:=p^.next;
End;
End;
{==========================}
Procedure del(var x:item,var
r.q.ll:pointer);
Var
Pl:pointer;
Begin
x:=q^.infor
pl:=q
If q=ll then ll:=q^.next;
Else r^.next:=q^.next;
q:=q^.next;
dispose(pl);
end;
{==========================}
Procedure nhap( var l:pointer);
Var
x:item;
n.i:integer;
begin
write(‘Nhap tong so hoc sinh:’);
readln(n);
init(l);
for i:=l to n do
begin
with x do
begin

begin
r:=l;
q:=l;
while q<>nil do
begin
visit(q);
r:=q;
q:=q^.next;
end;
writeln(‘danh sach da sua la :’);
xem(l);
end;
{=========================}
Procedure tim_in(l:pointer);
Var
p:pointer;
procedure visit(p:pointer);
begin
with p^.infor do
if diem.tb>=7 then
write(hoten);
with diem do
write(van:5:l,toan:5:l,ly:5:l,tb:5:l);
with ngaysinh do
write(ngay:4,thang:4,nam:6);
end;
end;
begin
writeln(‘danhsachhocsinhdatkhala’);
p:=l;