Пусть задан список студентов. Элемент списка содержит: фамилия, имя, № курса, № группы, оценки по пяти экзаменах последней сессии. Пусть, фамилии студ

type pnode=^node;
node=record
pr:string;
im:string;
nom:integer;
kyrs:integer;
o4inka:integer;
next:pnode;
end;
 
procedure CreateList(var p:pnode; var f:text; var n:integer);
var temp:pnode;
begin
n:=0;
assign(f,'input.txt');
reset(F);
new(temp);
temp^.next:=nil; p:=temp;
while not eof(F) do begin
new(temp^.next);
temp:=temp^.next;
read(f,temp^.x);
temp^.next:=nil;
n:=n+1;
end;
close(F);
end;
 
procedure PrintList(var p:pnode);
var temp:pnode;
begin
if p<>nil then temp:=p^.next
else temp:=nil;
write(')');
while temp<>nil do begin
write('>>', temp^.x:1);
temp:=temp^.next;
end;
writeln('.');
end;
 
Procedure InsertList(var p:pnode; v:integer);
var temp:pnode;
begin
If p=nil then Exit;
new(temp);
temp^.x:=v;
temp^.next:=p^.next; p^.next:=temp;
end;
 
Function FindList(var p:pnode; xx:integer):boolean;
var temp:pnode;
begin
if p=nil then begin FindList:=false; Exit; end;
temp:P;
while (temp^.next<>nil) and (temp^.next^.x<>xx) do
temp:=temp^.next;
if temp^.next=nil then FindList:=false
else begin
p:=temp; FindList:=true; end;
end;
 
 
 
var
f:text;
Alst:pnode; //початок списку
fndp:pnode;
n:integer;
 
begin
CreateList(Alst,f,n);
PrintList(Alst);
fndp:=Alst;
if temp^.pr=F1 then begin 
while temp^.pr<>F2 do begin temp:=temp^.next; DelitList(....);end;end;
PrintList(fndp);
END.