function insertCenter(name:tCenterName; votes:tNumVotes; var m:tManager):boolean;
var
    center:tItemC;
    item1,item2:tItem;
    plist,L:tList;
    p:tPosC;
begin
    createEmptyList(plist);

    center.centername := name;
    center.totalvoters := votes;
    center.validvotes := 0;
    center.partylist:=plist;

    item1.partyname:=BLANKVOTE;
    item1.numvotes:=0;

    item2.partyname:=NULLVOTE;
    item2.numvotes:=0;

    if not insertItemC(center,m)then
        begin
        insertCenter:=FALSE;
        writeln('+Error: Cannot create Center: ',center.centername);
        end
    else
        begin
        insertCenter:=TRUE;
        p:=findItemC(name,m);
        L:=GetItemC(p,m).partylist;
        InsertItem(item1,L);
        InsertItem(item2,L);
        updateListC(L,p,m);
        end;
end;