procedure save_list;
var f01:text;
        stroka:string;
        curr_element,curr_vetv:element_ptr;
begin
        assign(f01,'list.txt');
        rewrite(f01);
        curr_element:=top1;
        repeat
		if curr_element^.sostav<>nil then
		begin
                	curr_vetv:=curr_element^.sostav;
                	stroka:=curr_element^.name+'|'+curr_vetv^.name+'|';
                	while curr_vetv^.next<>nil do
                	begin
				curr_vetv:=curr_vetv^.next;
                	        stroka:=stroka+curr_vetv^.name+'|';                  
                	end;
		end;
		else stroka:=curr_element^.name+'|';
              	writeln(f01,stroka);
		stroka:='';
               	curr_element:=curr_element^.next;
        until curr_element<>top1;
        close(f01);
end;