数据信息检索问题。（150分）(150分)

var
  SrcList, DestList: TStringList;
  I, J: Integer;
begin
  SrcList := TStringList.Create;
  DestList := TStringList.Create;
  SrcList.LoadFromFile(上级文件);
  DestList.LoadFromFile(本地用户);
  for I := 0 to SrcList.Count - 1 do
  begin
    J := Pos(',', SrcList[I]);
    SrcList[I] := Copy(SrcList[I], 1, J - 1) + '=' + Copy(SrcList[I], J + 1, MaxInt);
  end;
  for I := 0 to DestList.Count - 1 do
  begin
    J := SrcList.IndexOfName(DestList[I]);
    if J >= 0 then DestList[I] := DestList[I] + '=' + SrcList.Values[J];
  end;
  DestList.SaveToFile(本地用户数据);
  SrcList.Free;
  DestList.Free;
end;