Вот, что я написала. Процедура CreateNewNode - добавляет узел в конец списка.
Procedure Readlist (var p:dlist);
var
f: file of integer;
q: dlist;
pr,info: integer;
begin
Assign(f,'spisok.dat');
Reset(f);
while not (eof(f)) do
begin
read(f,info);
CreateNewNode(p,info);
end;
close(f);
end;
Procedure Savelist (p:dlist);
var
f: file of integer;
q: dlist;
begin
Assign(f,'spisok.dat');
rewrite(f);
write (f,p^.info);
q:=p^.next;
while q<>p do
begin
write(f,p^.info);
q:=q^.next;
end;
close(f);
end;
q:=p^.next;
while q<>p do
begin
write(f,q^.info); { <--- q а не p }
q:=q^.next; { здесь тоже... }
end;
Каждый раз, когда я вижу правильное решение я начинаю удивляться своим тупым ошибкам. Спасибо большое в который раз.
Generico Levitra Online Vardenafil
Viagra E Nitroderivati
pastillas cialis 20 mg
Isotretinoin Cod Accepted Website
Where To Order Stendra